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Introduction 


Timex Computer Corporation announced their version of the Sinclair ZX 
Spectrum at the 1983 Winter Consumer Electronics Show, in early January. 


The specifications for the computer included a sound generator chip, 16K ROM 
and the cartridge port, despite the fact that the prototype was still in a Soectrum 
case. 


Unlike their work on the Timex/Sinclair 1000, which was largely cosmetic, this re- 
imagined computer required its own teams of managers, engineers and 
programmers. They came from other computer industry companies like 
Burroughs and Texas Instruments. 


Over the next several months, Timex added memory bank switching and 
support for cartridges and devices beyond those imagined by Sinclair. The 
intended expansion unit would have supported disk drives, modems, local area 
networks and extended memory, up to 16mb. 


Timex engineers replaced the Spectrum ULA with a Standard-Cell Logic Device 
(SCLD) from NCR and added the sound generator chip, cartridge port, two 
joystick ports and a power switch. 


The two ROM chips containing the operating system are socketed, suggesting 
Timex intended to offer a replacement in the future. The ROM has a special 
memory location to indicate the version, which would support upgraded ROMs 
from Timex. 


Timex programmers re-engineered the Spectrum ROM to accommodate the 
new features in the TS 2068. The TS 2068 ROM contains many new ideas not 
present in the Spectrum, including a function dispatcher meant to give 


programmers a consistent access method to routines across changes in the 
ROM. 


By the time the computer was available in stores, in November, it was largely 
incompatible with the Spectrum. 


Naming Conventions 
The Timex programmers renamed sections of the ROM and routines within 
those sections. 


This book prefers Spectrum section and routine names throughout. Where 
Timex programmers gave it a different name, it's noted in parenthesis at the 
section or routine location. 


vi 


HOME ROM 


The HOME ROM is where most of the action is with the Timex Sinclair 2068 
operating system and BASIC. The vast majority of the original ZX Spectrum 
ROM code lives in the HOME ROM, albeit often in different locations. 


Timex moved some routines from the HOME ROM to clear space for code to 
handle cartridge-based programs and accommodate its planned memory and 
extended feature Bus Expansion Unit. 


Not all of the new code works and code that does may be slightly wonky. I've 
called out those issues as best as possible in the comments. 
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Restart Routines And Tables 


The Z80 has eight special shortcut calls to specific addresses at the beginning of 
memory. These calls use only one byte, versus three bytes for a standard call. 


The ZX Spectrum and TS2068 use these special locations to handle startup 
processing and other frequently used routines. 


Start 


On power up, Interrupt Mode 0 is enabled in the Z80. This maskable interrupt is disabled 
and the DE register pair set to hold the 'top of possible RAM'. This routine can be used 
to reset the computer. 


START (RSTO) 

м0000 DI Disable interrupts. 
XORA +00 for start (but +FF for 'NEW?. 
LD DE, $FFFF Set pointer the top of possible 
JP START-NEW RAM. Continue with initialization. 

Error 


Error handler. Top of machine stack has the address of the error identifier. Can be used to 
support new commands or variants by hijacking the error interpreter. The ZX Spectrum 
Interface 1 and the Timex Portugal floppy disk drive systems (FDD-3 and FDD-3000) use 
this vector to add their commands to Sinclair BASIC. 


ERROR-1 (RST8) 


MOO08 LD HL, (CH. ADD) Load HL with CH. ADD, the current address 
reached by the interpreter. 
LD (X PTR), HL Store the character after ? mark in X PTR. 
JR ERROR-2 Continue at the ERROR-2 routine. 


Print Character 


Writes the code in A to the current output channel. 


PRINT-A-1 (WRCH) 


M0010 JP PRINT-A-2 Jump to stream output routine. 
SYSTEM-VERSION 
М0013 DEFB $FF Memory location that identifies the revision level 


of the system software. Would have counted 
down as versions incremented. 
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Get Character 


Fetch the contents in the location pointed to by CH_ADD. Returns if the value is a 
printable character, otherwise CH_ADD is incremented. 


GET-CHAR (CURCH) 


M0018 LD HL, (CH. ADD) Get contents of location in СН ADD. 
LD A, HL Get the current character. 
TEST-CHAR 
М001С CALL SKIP-OVER Test if it's printable. 
RET NC Return if not a token or a space. 


Get Next Character 


As a BASIC line is interpreted, this routine is called to step along the line. If the character 
is a space or а token with a value less than $1F, it gets the next character. 


NEXT-CHAR 
M0020 САШ CH_ADD+1 Get the next character. 
JR TEST-CHAR Test the character. 


Call Calculator 


Jumps to the floating point calculator interpreter. 


M0028 JP CALCULATE Jump to calculator. 


Make BC Spaces 


This routine creates free locations in the work space. The number of locations is set by 
BC. 


BC-SPACES (ALLOCBC) 


M0030 PUSH BC Save the number. 
LD HL, (WORKSP) Get the address of the start of the 
PUSH HL workspace and save it 
JP RESERVE before proceeding. 


Maskable Interrupt 


The real time clock is incremented and the keyboard scanned whenever a maskable 
interrupt occurs. 


MASK-INT 
M0038 PUSH AF Save the current values held in 
PUSH HL these registers. 
LD HL,(FRAMES) The lower two bytes of the frame counter 
(FRAMES) are incremented 
INC HL every 17 ms. 
LD (FRAMES),HL The highest byte of the frame 
LD A,H counter is only incremented when 
ORL the value of the lower two bytes is 
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JR NZ,KEY-INT zero. 
INC (ІҮ-ОҒКАМЕ52) Increment high byte of FRAMES (FRAMES2). 
KEY-INT 
M0048 PUSH BC Save these registers. 
PUSH DE 
CALL KEYBOARD Scan the keyboard. 
POP DE Restore registers. 
POP BC 
POP HL 
POP AF 
EI Enable interrupts. 
RET 
Error-2 


The return address to the interpreter points to the DEFB that signifies which error has 
occurred. This DEFB is fetched and transferred to ERR. NR. The machine stack is cleared 
before jumping forward to clear the calculator stack. 


ERROR-2 (GETERNR) 


M0053 POP HL Get the error address. 
LD L,(HL) Put the error number in L. 
ERROR-3 (LE3) 
М0055 LD (IY+OERRNR),L Save error number in ERR_NR. 
LD SP(ERRSP) Load SP with the error routine stack pointer. 
JP SET-STK Reset the calculator stack and memory pointers. 
NMI 


This routine is not used in the standard TS 2068 but the code allows for a system reset to 
occur following activation of the NMI line. NMIADD (%5СВО) has to have the value zero 
for the reset to occur. 


M0066 PUSH AF Save registers. 
PUSH HL 
LD HL, (NMIADD) Get NMIADD, check to see if 
LD A,H both are zero. 
ORL 
JR NZ, NO-RESET This is a bug. Should be JP Z. 
JP (HL) Jump to START. 
NO-RESET 
M0070 POP HL Restore registers. 
POP AF 
RETN 
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CH_ADD+1 Subroutine 


The address held in CH_ADD is fetched, incremented and restored. The contents of the 
location now addressed by CH_ADD is fetched. The entry points of TEMP-PTR1 and 
TEMP-PTR2 are used to temporarily set CH_ADD. 


CH_ADD+1 (NEXTCH) 
M0074 LD HL,(CH. ADD) Get CH_ADD. 


TEMP-PTR1 (NC_HL) 


Bump the current character pointer by 1. 
M0077 INC HL Move to next character. 


TEMP-PTR2 (TC_HL) 
Update the character pointer with HL. 


M0078 LD (CH_ADD),HL Save HL to CH_ADD. 
LD A,(HL) Get the character. 
RET 


Skip-Over Subroutine 


This subroutine skips over white-space and other characters irrelevant to the parsing of a 
BASIC line. The A register holds the character to be tested and HL holds its address. 


CH_ADD is advanced twice if the character is any of the display control tokens (INK, 
PAPER, FLASH, BRIGHT, INVERSE, or OVER). 


SKIP-OVER (TEST_CH) 


MOO7D CP $21 Return if '!' or later with no carry. 
RET NC 
СР 500 Exit if end-of-line has been 
RET Z reached. 
CP $0C Exit if DELETE. 
RET Z 
CP $10 Exit if less than $10 but 
RET C with carry set. 
CP $18 Exit if greater than $17. 
CCF 
RET C 


At this point HL is pointing at a character in the range $10 to $17, which are various 
control tokens. 


INC HL Advance to next character. 

CP $16 If the token is a display command, 

JR C, SKIPS (INK to OVER) jump ahead. 

INC HL Advance to next character (AT & TAB). 
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SKIPS 

M0093 SCF Set carry. 
LD (CH_ADD),HL Save new character pointer in CH_ADD. 
RET 

TOKENS 


The tokenized characters 134 (RND) to 255 (COPY) are expanded using this table. The 
last byte of a token is inverted to denote the end of the word. The first entry is an 
inverted step-over byte. 


М0098  DEFB ('?'+$80) 
DEFM "RN"&('D'+$80) 
DEFM "INKEY"&('$'--$80) 
DEFM "Р"&('1'+$80) 
DEFM "F"&('N'+$80) 
DEFM "POIN"&(‘T'+$80) 
DEFM "SCREEN"&('$'+$80) 
DEFM "ATT"&('R'-$80) 
DEFM "A"&(‘T'+$80) 
DEFM "TA"&('B'+$80) 
DEFM "VAL" &('$'+$80) 
DEFM "СОЮ" &('E'+$80) 
DEFM "VA"&(‘L'+$80) 
DEFM "LE"&('N'+$80) 
DEFM "SI"&('N'+$80) 
DEFM "CO"&('S'+$80) 
DEFM "TA"&('N'+$80) 
DEFM "AS"&('N'--$80) 
DEFM "AC"&('S'+$80) 
DEFM "AT"&('N'+$80) 
DEFM "L"&('N'--$80) 
DEFM "EX"&('P'--$80) 
DEFM "IN"&(‘T'+$80) 
DEFM "SQ"&('R'+$80) 
DEFM "SG"&('N'+$80) 
DEFM "AB"&('S'+$80) 
DEFM "РЕЕ" &('K'+$80) 
DEFM "I"&('N'+$80) 
DEFM "US"&('R'+$80) 
DEFM "STR"&('$'-$80) 
DEFM "CHR'&('$' $80) 
DEFM "NO"&('T'+$80) 
DEFM “BI” &('N'+$80) 


The previous 32 function-type words are printed without a leading space. The following 
have a leading space if they begin with a letter. 


М0103  DEFM "O"&('R'+$80) 
БЕРЕМ "АМ№" &('0'+$80) 


<" &('='+$80) 
>"&('='+$80) 
<" &('>'+$80) 
L 
T 


IN" &('E'+$80) 
HE" &('N'+$80) 
"T"&('O'+$80) 

M "5ТЕ" 8('Р'+$80) 

M "DEF F"&('N'+$80) 
М "CA"&('T'+$80) 

M "FORMA" &('T'+$80) 
M "МОМ" &('Е'+$80) 
М "ERAS" &('Е'+$80) 
M "ОРЕМ "&(‘#'+$80) 
М "CLOSE "&('#'+$80) 
M "MERG "&('E'+$80) 
M "VERIF"&('Y'+$80) 
М "BEE"&('P' $80) 

M "CIRCL"&('E'+$80) 
M "IN"&('K'+$80) 

M "PAPE"&('R'-- $80) 
M "FLAS"&('H'«$80) 
M "“BRIGH"&('T'+$80) 
M "INVERS"&('E'$80) 
М "OVE"&('R'+$80) 

М "OU"&('T'+$80) 

M "LPRIN"&('T'--$80) 
M "LLIS"&('T'+$80) 

M "STO"&('P'-- $80) 

M "ВЕА" 8('0'+$80) 

М "ОАТ" &('А'+$80) 

M "RESTOR"&('E'-$80) 
M "NE"&(W'--$80) 

M “BORDE"&('R'+$80) 
M "CONTINU" &('E'+$80) 
M "DI"&('M'+$80) 

М "RE"&('M'+$80) 

M "FO"&('R'+$80) 

M "GO T"&('O'+$80) 
M "GO SU"&('B'+$80) 
M "INPU"&(T'-$80) 
M "LOA"&('D'+$80) 
M "LIS"&('T'- $80) 

M "LE"&(‘T'+$80) 

M "PAUS"&('E'+$80) 
M "МЕХ" &('7'+$80) 

М "РОК" 8('Е'+$80) 

M "PRIN"&('T'$80) 
M "PLO"&(T'«-$80) 

M "RU"&('N'+$80) 


M 
M 
M 
M 
M 
M 
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БЕРЕМ "SAV" &('E'+$80) 
БЕРЕМ "RANDOMIZ"&('E'+$80) 
DEFM "1" &('F'+$80) 
DEFM "Сі" 8('5'+$80) 
DEFM "DRA"&('W'+$80) 
DEFM "СІЕА" &('К'+$80) 
DEFM “RETUR"&('N'+$80) 
DEFM "СОР" &("Ү'+$80) 
DEFM "DELET"&('E'-$80) 
DEFM "ON ER"&(‘R'+$80) 
DEFM "STIC"&('K'-- $80) 
DEFM "SOUN"&('D'+$80) 
DEFM "ЕВЕ" 8('Е'+$80) 
DEFM “RESE"&('T'+$80) 


Keyboard Tables and Scanning 


These six look-up tables are used by the keyboard reading routine to decode the key 
values. 


The first table contains the maps for the 39 keys of the standard TS 2068 keyboard. The 
remaining key (SHIFT, $27) is read directly. 


The keys consist of the 26 upper-case alphabetic characters, the 10 digit keys and the 
space, ENTER and symbol shift key. Unshifted alphabetic keys have $20 added to the 
value. The keywords for the main alphabetic keys are obtained by adding $A5 to the 
values obtained from this table. 


Each of these tables reads left-to-right. 


Main Keys Table (LCKEYS) 


M0227  DEFB $42,$48,$59,$36,$35,$54,$47,$56 B,H,Y,6,5,T,G,V 
DEFB $4E,$4A,$55,$37,$34,$52,$46,$43 N,J,U,7,4,R,F,C 
DEFB $4D,$4B,$49,$38,$33,$45,$44,$58 M,K,I,8,3,E,D,X 
DEFB $0E,$4C,$4F,$39,$32,$57,$53,$5A SYM SFT,L,O,9,2,W,S,Z 
DEFB $20,$0D,$50,$30,$31,$51,$41 5РАСЕ,ЕМТЕК,Р,0,1,О,А 


Extended Mode (EKEYS) 


Unshifted extended mode keys for the alphabetic characters. 


М024Е DEFB $ЕЗ READ DEFB $C4 BIN 
DEFB $ЕО LPRINT DEFB $E4 DATA 
DEFB $B4 TAN DEFB $BC SGN 
DEFB$BD = ABS DEFB $BB SOR 
DEFB$AF | CODE DEFB $BO VAL 
DEFB $B1 LEN DEFB $CO USR 
DEFB $A7 PI DEFB $A6 ІМКЕҮ% 
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DEFB $BE PEEK DEFB$AD TAB 
DEFB $B2 SIN DEFB $BA INT 
DEFB $E5 RESTORE DEFB $A5 RND 
DEFB $C2 CHR$ DEFB$E1  LLIST 
DEFB $B3 COS DEFB $B9 EXP 
DEFB $C1 STR$ DEFB $B8 LN 

Shifted Extended Mode (SEKEYS) 

Letter and shift. 

M0268 DEFB $7E FREE DEFB $DC BRIGHT 
DEFB $DA PAPER ОЕЕВ $5С \ 
ОЕЕВ $В7 АТМ DEFB $7B {(ОМЕВЕ) 
DEFB$7D . J(SOUND) DEFB $D8 CIRCLE 
DEFB $BF IN DEFB$AE УА1% 
DEFB АА 5СКЕЕМ% DEFB $AB ATTR 
DEFB $DD INVERSE DEFB $DE OVER 
DEFB $DF OUT DEFB $7F © (RESET) 
DEFB $B5 ASN DEFB $06 VERIFY 
DEFB $7C STICK DEFB $D5 MERGE 
DEFB $5D ] DEFB $DB FLASH 
DEFB $B6 ACS DEFB $09 INK 
DEFB $5B [ DEFB $07 BEEP 

Control Codes (NUMFNTBL) 

Digit keys and CAPS SHIFT. 

M0282 DEFB $0C DELETE DEFB $07 EDIT 
DEFB $06 CAPS LOCK DEFB $04 TRUE VIDEO 
DEFB $05 INV VIDEO DEFB $08 CURL 
DEFB $0A CURD DEFB ОВ CURU 
DEFB $09 CURR DEFB $0F GRAPHICS 

Symbol Keys (KKEYS) 

Letter and Symbol shift. 

М028С DEFB $E2 STOP DEFB$2A * 
DEFB $3F ? DEFB$CD STEP 
DEFB$C8 >= DEFB$CC ТО 
DEFB $CB THEN DEFB$5bE ^ 
DEFB$AC АТ DEFB$2D - 
DEFB $2B t DEFB$3D = 
DEFB $2bE š DEFB$2C , 
DEFB $3B ;DEFB $22 ч 
ОЕЕВ $С7 <= DEFB$3C < 
DEFB $C3 NOT DEFB$3E > 
DEFB $C5 OR DEFB$2F / 
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DEFB $C9 <> DEFB $60 £ 
DEFB$C6 AND DEFB$3A : 


Extended Mode (SSKEYS) 
Symbol shift with digit keys. 


М02А6 DEFB $DO FORMAT DEFB $CE | DEFFN 
DEFB $A8 FN DEFB ОСА LINE 
DEFB$D3 ОРЕМ # DEFB 604 CLOSE # 
DEFB $D1 MOVE DEFB 602 ERASE 
DEFB $A9 POINT DEFB $CF CAT 


Keyboard Scanning Routine 


This subroutine is called by the main keyboard subroutine and the INKEY$ routine (in 
SCANNING). 


In all instances the E register is returned with a value in the range of $0 to $27 or $FF for 
no key pressed. 


The D register is returned with a value that indicates which single shift key is being 
pressed. 


If both shift keys are being pressed then the D and E registers are returned with the 
values for the CAPS SHIFT and SYMBOL SHIFT keys respectively. 


If no keys is being pressed then the DE register pair is returned holding $FFFF. 


The zero flag is returned reset if more than two keys are being pressed, or neither key of 
a pair of keys is a shift key. 


KEY-SCAN (K_SCAN) 


MO2BO LD L,$2F Initialize position code. 
LD DE,$FFFF Initialize to "no key" found. 
LD BC,$FEFE C=keyboard port, B=scan group to test. The "0! 


bit is the key group that is scanned. 


Loop over keyboard. n: are made. Each pass has a different initial key value 
and scans a different line of five keys. The first line is CAPS SHIFT, Z, X, C, V. 


KEY-LINE 

M02B8 IN A,(C) Get key information; low=key pressed. 
CPL High is now a pressed key. 
AND $1F Allow only keyboard bits. 
JRZ, KEY-DONE Jump if no keys pressed. 


At least one key has been pressed. 


LD H,A Save the key value. 
LD A,L Save position code. 
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KEY-3KEYS 
МО2С1 INC D Return if too many (>2) keys pressed. 
RET NZ 
KEY-BITS 
М02С3 SUB $08 Repeatedly subtract 8 from the 
SRL H preset key value until a key-bit is found. 
JR NC, KEY-BITS Jump until there is a match. 
LD D,E Put previous key value into D. 
LD E,A Put present key value into E. 
JR NZ, KEY-3KEYS Check for another key. 
KEY-DONE 
МО2СО DECL Line has been scanned; reduce 
RLC B initial key value for the next pass. 
JR C, KEY-LINE Shift counter and jump if more groups need to be 


scanned. 


Having scanned all key groups and not returned; there must have been only one key 
pressed, shift and key pressed or no keys pressed. 


LD A,D Get previous key. 

INCA Return if only one key or no keys 
RETZ pressed. 

CP $28 Return if caps shift and another 
RETZ key. 

CP $19 Return if symbol shift and another 
RETZ key. 

LD A,E 

LD E,D Swap D and E. 

LD D,A 

CP $18 Check for symbol shift. 

RET ZF = 1 if there is a symbol shift. 


ZF = O if two character keys. 


Keyboard Subroutine 


Called every time a maskable interrupt happens, once every 17 ms in normal operation. 
Scans the keyboard and decodes the key value. The code produced will, if the 'repeat' 
status allows it, be passed to the system variable LAST-K. When a code is put into this 
system variable bit 5 of FLAGS is set to show that a 'new' key has been pressed. 


KEYBOARD (UPD K) 
MO2E1 CALL KEY-SCAN Scan the keyboard. 
RET NZ Return immediately if too many keys pressed. 


A double system of KSTATE system variables (KS A1, KS C1, KS D1, KS B1 and KS А2, 
KS C2, KS D2, KS B2) is used below. 


The two sets allow for the detection of a new key being pressed (using one set) while still 
within the repeat period of the previous key pressed (details in the other set). 
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A set will only become free to handle a new key if the key is held down for about 1/10th 
of a second. i.e. five calls to KEYBOARD. 


LD HL,KS A1 Get key state. 
K-ST-LOOP 
MO2E8  BIT 7,(HL) Jump if no key stored. 
JR NZ, K-CH-SET 
INC HL If the set is not free, 
DEC (HL) decrement its "5 call counter". 
DECHL 
JR NZ, K-CH-SET When it reaches zero, signal. 
LD (HL),$FF the set as free. 
K-CH-SET 
МО2ЕЗ LDA,L Save lower byte of key buffer. 
LD HL,KS_A2 "Next key" buffer address. 
CPL Jump if we are looking at different 
JR NZ, K-ST-LOOP buffers. 
CALL K-TEST Look for key code. 
RET NC Return if no character key detected. 


A key stroke that is being repeated (held down) is now separated from a new key stroke. 


RES DELREP(IY+OFLAGS2) Reset repeat deletion flag in FLAGS2. 


LD HL,KS_A1 

CP (HL) Jump to handle repeat counters if 
JR Z,K-REPEAT KEYO = KEY2. 

EX DE,HL Save address К5 А1 іп DE. 

LD HL,KS_A2 Examine second KSTATE. 

CP (HL) Jump to handle repeat counters if 
JR Z,K-REPEAT KEYO = KEY2. 


But a new key will not be accepted unless one of the sets of KSTATE system variables is 
‘free’. 


BIT 7,(HL) Jump if KS_A2 indicates no key pressed 
JR NZ,K-NEW (saves A into К5 А2). 

EX DE,HL Point to KS_A1. 

BIT 7,(HL) Return if KS A1 has key hit. 

RETZ 


The new key is to be accepted. But before the system variable LASTK can be filled, the 
KSTATE system variables, of the set being used, have to be initialized to handle any 
repeats and the key's code has to be decoded. 


K-NEW 
M0317 LDE,A Pass code to E 
LD (HL),A and to KS_A1 or К5 А2. 
INC HL Initialize the debounce counter. 
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LD (HL),$05 

INC HL 

LD A,(REPDEL) Initialize the repeat counter. 
LD (HL),A 

INC HL Point to KSTATE 3/7. 


The decoding of a main code depends upon the present state of MODE, bit 3 of FLAGS 
and the shift byte. 


K-END 
МОЗ2Е 


LD C,(IY+OMODE) Fetch MODE. 

LD D,(IY+OFLAGS) Fetch FLAGS. 

PUSH HL Save the character pointer. 
CALL K-DECODE 

POP HL 

LD (HL),A Final state saved in KSTATE 3/7. 
LD (LAST-K),A Store the keystroke in LAST-K 
SET KEYHIT,(IY+OFLAGS) Signal a "new key”. 

RET 


Repeat Key Subroutine 


A possible repeat has been identified. HL addresses the raw key. The last location of the 
key map holds the decoded key from the first context. This could be a keyword and, with 
the exception of NOT, a repeat is syntactically incorrect and not really desirable. 


K-REPEAT 
M0336 INC HL Initialize the debounce counter. 
LD (HL),$05 
INC HL Point to repeat counter. 
LD A,(LAST-K) 
CP $CE Return if last key value is a token. 
RET NC 
DEC (HL) Decrement repeat counter. 
RET NZ Return if not time to repeat yet. 
LD A,(REPPER) Initialize repeat counter. 
LD (HL),A 
INC HL Point to character. 
LD A,(HL) Get character. 
CP $0C Jump if character code is not DELETE. 
JR NZ,K-END 
SET DELREP(IY+OFLAGS2) Set delete key repeat on. 
PUSH AF Save AF. 
LD BC,$4E20 
K-REP-DELAY 
M0354 DEC BC Delay loop. 
LD A,C Put lower byte in C. 
ORB Clear B. 
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JR NZ, K-REP-DELAY Loop until zero. 
POP AF 
JR K-END 


K-TEST Subroutine 


The key value is tested and returns immediately if 'no-key' or 'shift-only'. Otherwise, the 
main code for that key is found. 


K-TEST (K BASE) 


M035C LD B,D Last key to B. 
LD D,$00 Clear D for later. 
LD A,E Key number to A. 
CP $27 Return if key is greater than 
RET NC CAPS SHIFT. 
CP $18 Jump if not SYMBOL SHIFT 
JR NZ, K-MAIN 
BIT 7,B Return if this only one key 
RET NZ has been pressed. 
K-MAIN 
MO36A LD HL, LCKEYS Offset to table 3. 
ADD HL,DE Retrieve the key code from 
LD A,(HL) LCKEYS table. 
SCF Indicate key was found. 
RET 


Keyboard Decoding Subroutine 


Entered with the main code in the E register, the value of FLAGS in the D register, the 
value of MODE in the C register and the shift byte in the B register. 


Evaluating these four values and referring, as necessary, to the six key tables a final code 
is produced and returned in the A register. 


K-DECODE (CHCODE) 


M0371 LDA,E Get key code to A. 
СР $3A Jump if key code is a digit key, 
JR C,K-DIGIT space, ENTER or shift (<$3A). 
DEC С Decrement the MODE to remove K/L. 
JP M,K-KLC-LET Jump forward, as needed, for modes 
JR Z,K-E-LET K, L, C and E. 


Only graphics mode is left and the final code for letter keys in graphics mode is 
computed from the main code. 


ADD A,$4F Add offset to make graphics character. 
RET 
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K-E-LET 

Letters in extended mode are considered next. 

MO37F LD HL, EKEYS-'A' Offset to base of "E" table. 
INC B Jump if shifted character 
JR Z, K-LOOK-UP 
LD HL, LCKEYS unshifted "E" mode table 

K-LOOK-UP 


Key tables 'b-f' are served by this look-up routine. In all cases a 'final code' is found and 
returned. 


M0388 LD D,$00 Get "E" mode character from 
ADD HL,DE selected table. 
LD A,(HL) 
RET 

K-KLC-LET 


Letter keys in 'K', 'L' or 'C' modes are now considered. But first the special SYMBOL 
SHIFT codes have to be dealt with. 


M038D LD HL,$024B Load table 5 offset. 
BIT 0,B Jump if symbol shift. 
JR Z, K-LOOK-UP 
BIT 3,D Jump if "К" mode. 


JR Z, K-TOKENS 
ВІТ CAPS_L,(IYtOFLAGS2) Return if CAPS LOCK in FLAGS2 


RET NZ or CAPS SHIFT. 
INC B Return if upper case (B=$FF). 
RET NZ 
ADD A,$20 Convert to lower case. 
RET 
K-TOKENS 
The ‘final code' values for tokens are found by adding +A5 to the 'main code’. 
MO3A2 ADD A,$A5 Convert to keyword. 
RET 
K-DIGIT 
Key code is «$34, so it's a digit key, SPACE, ENTER or SHIFT. 
MO3A5 CP $30 Return if key «$30 (unprintable). 
RET C 
DECC 
JP M ,K-KLC-LET Jump with 'K', 'L' & 'C' modes; 
JR NZ,K-GRA-DGT and also with 'G' mode. 
LD HL,$0276 Get "E" mode key table. 
BIT 5,B Jump if symbol shift and a digit 
JR Z,K-LOOK-UP key in extended mode. 
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CP $38 Jump if digit is 8 or 9. 
JR NC,K-8-&-9 


Digit key 0-7 in extended mode are either PAPER or INK colors. 


SUB $20 Reduce the range to $10 - $17. 
INC B Return with this PAPER color code 
RETZ if CAPS SHIFT is not being used. 
ADD A,$08 CAPS SHIFT is used; convert to $18 
RET $18 - $1F for INK color code. 

K-8-&-9 

The keys 8 and 9 in extended mode are BRIGHT & FLASH codes. 

MO3CO SUB $36 Convert to BRIGHT/UNBRIGHT. 
INC B Return if no SHIFT. 
RETZ 
ADD A,$FE Convert to FLASH/UNFLASH. 
RET 

K-GRA-DGT 


The digit keys in graphics mode are the block graphic characters (+80 to +8F), 
GRAPHICS code (+0F) and DELETE code (+0С). 


MO3C7 LD HL,$0252 Get "С" mode key table. 
CP $39 
JR Z,K-LOOK-UP Jump if character is "0" or "9" 
CP $30 
JR Z,K-LOOK-UP 
AND $07 
ADD A,$80 Make graphics mosaic patterns. 
INC B Return if no SHIFT. 
RET Z 
XOR $0F Invert pattern if SHIFT. 
RET 
K-KLC-DGT 
Last, evaluate the digit keys in 'K', 'L' & 'C' modes. 
MO3DB ІМСВ Return if no SHIFT. 
RETZ 
BIT 5,B Is it SYMBOL SHIFT? 
LD HL,$0252 Jump if not SYMBOL SHIFT. 
JR NZ,K-LOOK-UP 
SUB $10 Convert to symbol. 
CP $22 Jump if ampersand "Q". 
JR Z,K-@-CHAR 
CP $20 Return for space. 
RET NZ 
LD A,$5F Make underline " ". 
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RET 

K-@-CHAR 

MO3FO LDA,$40 Return ampersand “@". 
RET 


Speaker Routines 


In the ZX Spectrum, sound is produced by alternating the value of bit 4 on port FE. These 
routines support the BEEP command and its options. The SOUND command is in the 
BASIC Line and Command Interpretation section. 


Beeper Subroutine 


DE contains number of cycles - 1. HL contains the waveform period (8*HL+236 to 
8*HL+246 t-states). 


BEEPER (PARP) 


МОЗЕЗ DI Disable the interrupt during ‘beep’. 
LD A,L Save L. 
SRLL Divide L by 4. 
SRLL 
CPL Initialize fine tune for the 
AND $03 requested period. 
LD C,A 
LD B,$00 
LD IX, $040F The base address for the timing loop. 
ADD IX,BC Alter the length of the timing loop. 
LD A,(BORDCR) Fetch the border color. 
AND $38 Make it compatible with the port at $FE. 
RRCA 
RRCA 
RRCA 
OR $08 Set the MIC output to ‘off.’ 


A holds a template value to be output to the speaker port. Bit 4 (value $10) is toggled to 
make the noise. 


The NOPs below allow fine tuning of the period. 


BE-IX+3 
MO40F МОР 


BE-IX+2 
NOP 


BE-IX+1 
NOP 


18 


BE-IX+0 
INC B 
INC C 


BE-H&L-LP 
M0414 DECC 
JR NZ,BE-H&L-LP 
LD C,$3F 
DEC B 
JP NZ,BE-H&L-LP 
XOR $10 
M041F OUT ($FE),A 
LD B,H 
LD C,A 
BIT 4,A 
JR NZ,BE-AGAIN 
LD A,D 
ORE 
JR Z,BE-END 
LD A,C 
LD C,L 
DEC DE 
JP (IX) 


BE-AGAIN 

M0430 ШС 
INC C 
JP (IX) 


BE-END 
M0434 El 
RET 


BEEP Command Routine 


Timing loop based on C. 


Timing loop based on B. 


Toggle the speaker output (bit 4). 
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Perform OUT leaving BORDER unchanged. 


Reset the B register. 
Save the A register. 
Jump if the speaker bit is 1. 


Exit if cycle counter is zero. 
Fetch saved value for C. 
Reset the C register. 


Decrement the loop counter. 
Back around for more cycles. 


BC contains the period value 


so loop back for more cycles. 


Enable interrupts. 


Two numbers on the calculator stack represent the pitch of the note (top number) and the 


duration (second number). 


BEEP 

M0436 RST $28 
DEFB $31 
DEFB $27 
DEFB %С0 
DEFB $03 


DEFB $34 
DEFB $EC 
DEFB $6C 
DEFB $98 
DEFB $1F 


Call the floating point calculator. 


Duplicate pitch value. 


Find the integer portion of the note. 


T -> MEM 0 copy to МЕМ 0. 


SUB calc now has the fractional portion of the 


note value. 
Stack the decimal value 
0.0577622606. 
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DEFB $F5 
DEFB $04 
DEFB $A1 
DEFB $0F 
DEFB $38 


LD HL,MEMBOT 
LD A,(HL) 


AND A 


JR NZ,REPORT-B 
INC HL 

LD C,(HL) 

INC HL 

LD B,(HL) 

LD A,B 

RLA 

SBC A,A 

CPC 

JR NZ,REPORT-B 
INC HL 

CP (HL) 

JR NZ,REPORT-B 
LD A,B 

ADD A,$3C 

JP P, BE-I-OK 

JP PO, REPORT-B 


Multiply T. 

Stack one. 

Add. 

End calc. Calc now has a factor that represents 
the ratio of the requested frequency to a full step 
in frequency. 

Get the calculator's memory (MEM 0). 

Fetch the exponent of integer part of note. 
Jump if the number is not an integer. 


Get the sign byte. 
Get the low byte of the number. 


Check to see if the number is C is less than 
128 and zero the accumulator. 


Jump if high byte is not zero. 


A now has the note code. 
Jump if the note code is 68 or less. 


Jump if overflow, A must be « -60. 


The note number (-60 to +69 has now been shifted to $0 to $81). Next, find the correct 


pitch. 
BE-I-OK 
M0463 LD B,$FA 
BE-OCTAVE 
M0465 INCB 
SUB $0C 
JR NC,BE-OCTAVE 
ADD A,$0C 
PUSH BC 
LD HL,$04AC 
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CALL LOC-MEM 
CALL STACK-NUM 
RST $28 

DEFB $04 


DEFB $38 
POP AF 
ADD A,(HL) 


Start 6 octaves below middle C. 


Reduce | to find the correct octave. 


A now contains the note within the octave stored 
іп В. 

Save the octave number. 

Base of the note table. 

HL=HL+5*A 

Put the number on the calc stack. 

Call the floating point calculator. 

Multiply the base frequency by the factor 
computed above. This gives the final frequency. 
Exit calculator. 

Get the octave number. 

2^N*note number. 
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LD (HL),A 

RST $28 Call the floating point calculator. 

DEFB $CO T -> MEM 0. MEM 0 now contains the final 
frequency for the desired note. 

DEFB $02 Remove the frequency from the FP stack. 

DEFB $31 Duplicate the duration value. 

DEFB $38 Exit calculator. 

CALL FIND-INT1 Convert the FP top of stack to a value in А 

CP $0B 


JR NC,REPORT-B 


Translate the duration value to the equivalent number of cycles for PARP. 


RST $28 Call the floating point calculator. 

DEFB $ЕО MEM 0 -> T. Get the desired frequency. 

DEFB $04 Multiply by required the duration to give the # of 
cycles. 

DEFB $EO MEM 0 -> T again, get the frequency. 

DEFB $34 

DEFB $80 

DEFB $43 

DEFB $55,$9F,$80 f*t ,f, 437500 

DEFB $01 SWAP 

DEFB $05 Convert the frequency into a period value for 
PARP. 

DEFB $34,$35,$71 f*t, 30.125 

DEFB $03 Subtract 

DEFB $38 Exit calculator. 


Note: The value 437,500/f gives the half-cycle length of the note and reducing it by 
30.125 allows for 120.5 T states in which to actually produce the note and adjust the 
counters. 


CALL FIND-INT2 Period on FP stack to BC. 
PUSH BC Save frequency. 

CALL FIND-INT2 Convert duration to BC. 
POP HL Restore the frequency. 
LD D,B Move the duration to DE. 
LD E,C 


Before making the beep, test the value f*t. 


LD A,D Return if f*t results in no cycles. 
ORE 

RET Z 

DEC DE Decrease the duration for PARP. 
JP BEEPER Make the noise. 
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REPORT-B 
MO4AA RST $08 
DEFB $0A 


Semi-tone Table 


Error: Integer out of range. 


Holds the frequencies of the twelve semi-tones in an octave. 


МОДАС DEFB $89,$02,$D0,$12,$86 
DEFB $89,$0A,$97,$60,$75 
DEFB $89,$12,$D5,$17,$1F 
DEFB $89,$1B,$90,$41,$02 
DEFB $89,$24,$D0,$53,$CA 
DEFB $89,$2E,$9D,$36,$B1 
DEFB $89,$38,$FF,$49,$3E 
DEFB $89,$43,$FF,$6A,$73 
DEFB $89,$4F,$A7,$00,$54 
DEFB $89,$5C,$00,$00,$00 
DEFB $89,$69,$14,$F6,$24 
DEFB $89,$76,$F1,$10,$05 


261.63 Hz C 
277.18 Hz C# 
293.66 Hz D 
311.12 Hz D# 
329.63 Hz E 
349.23 Hz F 
369.99 Hz Fit 
3912 Hz G 
415.30 Hz G 
440 Hz A 
466.16 Hz АЯ 
493.88 Hz B 


ZX81 Program Name Subroutine 


Subroutine used by the ZX81; was not removed when ROM was rewritten for the 


Spectrum. 


MO4E8 | CALL SCANNING 
LD A,(FLAGS) 
ADD A,A 
JP M, REPORT-C 
POP HL 
RET NC 
PUSH HL 
CALL STK-FETCH 
LD H,D 
LD LE 
DECC 
RETM 
ADD HL,BC 
SET 7,(HL) 

RET 
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Evaluate the current expression 
Jump if the expression is numerical 


Error - BAD BASIC 
Restore HL 

Return if syntax checking 
Save HL 

Get the string descriptor 
String location to DE 


Return if the string length is zero 


Point to last character of string 
Set bit 7 
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Screen/Printer Handling Routines 


These routines handle all of printing to the main part of the screen, the lower 
part of the screen and the printer. 


Input/output routines of the 2068 are vectored through the channel & stream 
information areas. On the stock 2068, input is only possible from the keyboard 
but output can be directed to the printer, the upper part of the display or the 
lower part of the display. 


The major input routine in this part is the EDITOR that allows the user to enter 
characters into the lower part of the display. 


The PRINT-OUT routine is a rather slow routine as it is used for all means of 
updating screen data. For example, adding of a single byte to the display area 
involves considering the status of OVER and INVERSE each time. 


This section begins a major departure from the original Spectrum ROM. In the 
Spectrum, the cassette I/O routines follow the speaker routines. 


PRINT-OUT Routines 


All printing to the upper and lower portions of the screen, as well as to the printer, is 
handled by these routines. PRINT-OUT is entered with the code for a control character, a 
printable character or a token in the A register. 


PRINT-OUT (SENDTV) 


М0500 САШ PO-FETCH Update DFCC and DFLCC. 
CP $20 Jump if code is not a control 
JP NC,PO-CHAR character. 
CP $0C Jump if character is not DELETE. 
JR NZ, PO-1 
BIT TOKEN,(IY--OFLAGS) Is TOKEN on or off? 
JP Z, PO-CHAR Jump if TOKEN is set. 
PO-1 
M0513 СР $06 Jump if char is less than COMMA. 
JR C,PO-QUEST All of these are not used. 
CP $18 Jump if char is greater than TAB. 


JR NC,PO-QUEST 


Printing a control character, get the jump address for the code to handle it. 


LD HL,CONTRO - 6 Base of jump table - 6. 

LD E,A 

LD D,$00 Form the address of the jump table entry. 
ADD HL,DE 

LD E,(HL) Get the code offset. 

ADD HL,DE Make the address of the code handler. 
PUSH HL Save it. 
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JP PO-FETCH Jump to the print routine. This is effectively a call 
to the stacked address after DFCC and DFLCC 
have been set up. 


Control Character Jump Table (Characters 6-24) 


Offsets to routines that handle the control characters. 


CONTRO 

M0528 DEFB $4E Comma (P_COMMA) 
DEFB $57 Edit (PO-QUEST) 
DEFB $10 Cursor left (P_LFT) 
DEFB $29 Cursor right (P_RT) 
DEFB $54 Cursor down (PO-QUEST) 
DEFB $53 Cursor up (PO-QUEST) 
DEFB $52 Delete (PO-QUEST) 
DEFB $37 Enter 
DEFB $50 Not used (PO-QUEST) 
DEFB $4F Not used (PO-QUEST) 
DEFB $5F Ink (PO-TV-1) 
DEFB $5E Paper (PO-TV-1) 
DEFB $5D Flash (PO-TV-1) 
DEFB $5C Bright (PO-TV-1) 
DEFB $5B Inverse (PO-TV-1) 
DEFB $5A Over (PO-TV-1) 
DEFB $54 At (PO-2-OPER) 
DEFB $53 Tab (PO-2-OPER) 


Cursor Left Subroutine 


B register holds the current line number and C register the current column number. 


PO-BACK-1 (P_LFT) 


MO53A INCC 
LD A,$22 Move left one column. 
CPC Unless against the left side of the screen. 
JR NZ, PO-BACK-3 
BIT PR,(IY+OFLAGS) Jump forward if printing to the printer. 
JR NZ, PO-BACK-2 
INC B Against the left, go up a line. 
LD C,$02 Set column value. 
LD A,$19 At the top line? 
СРВ 
JR NZ, PO-BACK-3 Nope, good. 
DEC B Too far, back down a line. 


PO-BACK-2 (PR-CUR-L-2) 
М054Е LDC,$21 Set to left column. 


PO-BACK-3 (PR-CUR-L-3) 
М0551 JP CL-SET Return via CL-SET. 
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Cursor Right Subroutine 
B register holds the current line number and C register the current column number. 
Performs the equivalent of PRINT OVER 1; CHR$ 32; - in BASIC. 


PO-RIGHT (P_RT) 


M0554 LD A,(PFLAG) Get printing flags and 
PUSH AF save them. 
LD (IY+OPFLAG),01 Set print flag to OVER 1. 
LD A, $20 Print a space to the TV. 
CALL PO-CHAR 
POP AF Restore the print flags. 
LD (PFLAG),A Restore PLFAG. 
RET 


Carriage Return Subroutine 


If the output is going to the printer, then empty printer buffer. If the printing to the 
screen, test for 'scroll?' before decrementing the line number. Number of lines in В. 


PO-ENTER (P. NL) 


M0566 BIT PR,(IY+OFLAGS) Jump forward if printing to printer. 
JP NZ, COPY-BUFF 
LD C, $21 Set left column. 
CALL PO-SCR Return here if the screen is not full. 
DEC B Move down a line. 
JP CL-SET 


Print Comma Subroutine 


Current column value is manipulated and the A register set to $00 (for TAB 0) or $10 (for 
TAB 16). 


PO-COMMA (P_COMMA) 


M0576 САШ PO-FETCH Get display file pointer (DE is the 
LD A,C important one). 
DECA Move right two columns. 
DECA 
AND $10 
JR PO-FILL 


Print a Question Mark Subroutine 


Print question mark when asked to print an unprintable code. 


PO-QUEST 
M0580 LDA,'?' Output a question mark bit pattern. 
JR PO-CHAR 
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Control Characters With Operands 


The control characters from INK to OVER require a single operand. AT and TAB are 
followed by two operands. 


PO-TV-2 

M0584 LD DE, $059E Save the first operand in TVDATA-hi 
LD (TVDATA+1),A and change the address of the output 
JR PO-CHANGE routine to PO-CONT. 

PO-2-OPER 

Enter here when handling the AT and TAB characters (two operands). 

МО58С LD DE, $0584 Change address of output routine to 
JR PO-TV-1 PO-TV-2. 

PO-1-OPER 

Enter when handling INK to OVER. 

M0591 LD DE, $059E Change output routine to PO-CONT. 

PO-TV-1 

M0594 LD (TVDATA),A Save the control code to TVDATA-lo. 


PO-CHANGE (CHANGE) 


Temporarily change output routine address. 


M0597 LD HL,(CURCHL) Put address of the output channel in HL. 
LD (HL),E Enter the new output routine address and 
INC HL force the next character code to be 
LD (HL),D treated as an operand. 
RET 
PO-CONT 
All necessary data collected, continue. 
M059E LD DE, PRINT-OUT Restore the original address for 
CALL PO-CHANGE PRINT-OUT. 
LD HL,(TVDATA) Fetch the control code and first operand. 
LD D,A The last operand and the control 
LD A,L code are moved. 
CP $16 Jump forward if handling INK to OVER. 
JP С, СО-ТЕМР5 
JR NZ, PO-TAB Jump forward if handling TAB. 
SET_AT 
Handle the AT code. 
М05В0 LDB,H Line number. 
LD C,D Column number. 
LD A,$1F Reverse the column number. 
SUB C 
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JR C, PO-AT-ERR 
ADD A,$02 

LD СА 

BIT PR,(IY+OFLAGS) 
JR NZ, PO-AT-SET 
LD A,$16 

SUB B 


PO-AT-ERR 
MOSC3 JP C, REPORT-B 
INCA 
LD B,A 
INC B 
BIT LHS,(IY+OTVFLAG) 
JP NZ, PO-SCR 
CP (IY+ODFSZ) 
JP C, REPORT-5 


PO-AT-SET 
MO5D6 JP CL-SET 


PO-TAB 
Handle TAB. 


MOSD9 ШАН 


PO-FILL 
MOSDA CALL PO-FETCH 
ADD A,C 
DECA 
AND $1F 
RETZ 
LD D,A 
SET SPC,(IY+OFLAGS) 


PO-SPACE 

M05E7 LDA,$20 
CALL PO-SAVE 
DECD 
JR NZ, PO-SPACE 
RET 


HOME ROM 
Jump if not in range. 
Add offset to make C $21 - $22 
Jump if printing to printer 


Reverse the line number. 


Jump forward if range ok. 
Adjust the range. 


If printing to the lower part of the screen, 
consider whether scroll is needed. 


Out of screen, report error 5. 


Fetch the first operand. 


The current print position. 

Add the current column value. 

Find out how many 'spaces', MOD 32, 

are required and return if the result is zero. 


Use 0 as the counter. 
Suppress ‘leading space’. 


Print number of spaces specified by D. 
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Printable Character Codes 
Character(s) are printed by PO-ANY and flow continues to PO-STORE. 


PO-ABLE (PO-CHAR) 
MO5FO CALL PO-ANY Print the characters and continue below. 


Position Store Subroutine 


Set the new column position and display file pointers for the TV based on various flags 


PO-STORE (STTVCU) 

MO5F3 БІТ PR,(IY+OFLAGS) Jump if printing to printer. 
JR NZ, PO-ST-PR 
BIT LHS,(IY+OTVFLAG) Jump if printing to the 


JR NZ, PO-ST-E lower half of the screen. 
LD (SPOSN),BC Update the upper screen column pointer. 
LD (DFCC),HL Update upper display file character 
RET pointer. 

PO-ST-E 

Save the lower screen parameters. 

M0607 LD (SPOSNLCOL),BC Update lower screen col pointer. 
LD (ECHOE),BC Update keyboard buffer pointer. 
LD (DFCCL),HL Update lower display file character pointer. 
RET 

PO-ST-PR 

M0613 10 (IY+OPPOSN),C Update print position. 
LD (PRCC),HL Update printer buffer character pointer. 
RET 

PO-FETCH 


Load registers with display information. HL contains display file position for a character. 
BC loaded with the LIN (B) and COL (C) of the current screen position. 
PO-FETCH (LDTVCU) 


MO61A BIT PR,(IY+OFLAGS) Jump if printing to printer. 
JR NZ, PO-F-PR 
LD BC,(SPOSNCOL) Get current print column position. 
LD HL,(DFCC) Load into the display file column. 
БІТ LHS,(IY--OTVFLAG) Return if printing to the upper half 
RET Z of the screen. 
LD BC,(SPOSNLCOL) Put the lower screen print column position 
LD HL,(DFCCL) into the display column pointer. 
RET 

PO-F-PR 

M0634 LD C,(IYtOPPOSN) Get the print buffer position. 
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LD HL,(PRCC) 
RET 
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Print Any Character(s) Subroutine 


Put a character on the screen. A contains the character, DE contains the character 


position in the display file. 
PO-ANY 


Handle the printable characters. 


MO63B СР $0C 
JR NZ, PO-ANY-NOT-DEL 
LD A,$7A 
JR PO-T 


PO-ANY-NOT-DEL 
M0643 СР $7C 
JR Z, PO-T 
CP $7E 
JR Z, PO-T 
CP $7B 
JR C, PO-ANY-C 
CP $80 
JR NC, PO-ANY-C 
BIT TOKEN,(IY--OFLAGS) 
JR Z, PO-T 


PO-ANY-C 


Jump if char is not DELETE 


Jump to print. 


Jump if char is STICK. 

Jump if char is FREE. 

Jump if char is printable. 

Jump if char is block graphics O. 


Is TOKEN on? 
Yes, print the token. 


Do some more tests, then get the character. 


M0659 CP $80 
JR C, PO-CHAR 
CP $90 
JR NC, PO-TOKUDG 
LD B,A 
CALL PO-GR-1 


CALL PO-FETCH 
LD DE, MEMBOT 
JR PR-ALL 


PO-GR-1 (MKBLKGR) 


Jump forward if it's an ordinary print code. 
Jump if is a UDG or token. 


Graphic code, load the character in B. 

Generate a block graphic of the character code in 
B. 

HL now has the display file position. 

point to the block graphic bit map buffer 


Dynamically generate the block graphics characters. 


MO66D LD HL,MEMBOT 


CALL PO-GR-2 


Point to free space, provides a buffer for the 
character bit map. 

Generate the first four scan lines 

(bits О and 1). 
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PO-GR-2 
M0673 RRB 


ORC 
LD C,$04 


PO-GR-3 
M0681 LD (HL),A 
INC HL 
DECC 
JR NZ, PO-GR-3 
RET 


PO-T&UDG (PO-TOKUDG) 


Determine bits 0 and 2 of graphic code. 
If LSB is 1, A=$FF else A=$00. 


Keep only the bits needed for the character. 


Save the character. 
Check bit 1 (and bit 3). 
Same as above. 


Combine the results. 


A holds upper half of character, 
duplicate it four times. 


Then do the lower half of the character. 


Handle the user defined graphics and tokens. 


M0687 SUB $A5 
JR NC,PO-T 
ADD A,$15 
PUSH BC 
LD BC,(UDG) 
JR PO-CHAR-2 


PO-T 
M0694 CALL PO-TOKENS 
JP PO-FETCH 


PO-CHAR 
М069А PUSH BC 
LD BC,(CHARS) 


PO-CHAR-2 
MO69F EX DE,HL 
LD HL,FLAGS 
RES SPC,(HL) 
CP $20 
JR NZ,PO-CHAR-3 
SET SPC,(HL) 


PO-CHAR-3 

МОФАВ LD H,$00 
LD ЦА 
ADD HL,HL 
ADD HL,HL 
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Jump if a token, not a UDG. 
Adjust value for UDG bit map table. 


Save current position. 
Load BC with the base of the UDG table. 


Print the token in A. 
HL points to the display file. 


Save the current position. 
Get the base address of the character 
bit map table. 


Save the print address. 
Force no printing leading spaces. 


Jump if the character is not a space. 


Force printing leading spaces. 


Put character code in HL. 


Multiply by 8. 
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ADD HL,HL 

ADD HL,BC HL contains the bit map for the character. 
POP BC Restore current position. 

EX DE,HL Store bit map location in DE. 


Print All Characters Subroutine 


Print all 8*8 bit characters. DE points to the character bit map, HL points to the display 
file or printer buffer. BC contains line and column. 


PR-ALL 
М0684 LDA,C Put column position to A. 
DECA Move right one column. 
LD A,$21 Jump forward if new line. 
JR NZ, PR-ALL-1 
DEC B Move down one line. 
LD С,А 
BIT PR,(IY+OFLAGS) Jump if printing to TV. 
JR 7, PR-ALL-1 
PUSH DE Save the bit map buffer address. 
CALL COPY-BUFF Flush the printer buffer to the printer. 
POP DE Restore the buffer address. 
LD A,C Get the new column number. 
PR-ALL-1 
М06С8 CPC Test whether a new line is needed. 
PUSH DE Save the bit map buffer address. 
CALL Z ,PO-SCR Return here if display is not full. 
POP DE Restore the bit map buffer address. 
PUSH BC Save current position and 
PUSH HL display file to the stack. 
LD A,(PFLAG) Get printing flags and read bit O. 
LD B,$FF Put OVER mask in B. 
RRA Jump if OVERing new and 
JR C, PR-ALL-2 old characters. 
INC B 
PR-ALL-2 
MO6D9 RRA Check bit 2 of PFLAG and put 
RRA INVERSE mask in C register. 
SBC A,A A=$FF if INVERSE, else A=0. 
LD C,A Put the value in C. 
LD A,$08 Set A to hold pixel-line counter and 
AND A clear carry flag. 
BIT PR,(IY+OFLAGS) Jump if printing to TV. 
JR Z, PR-ALL-3 
SET PRLEFT,(IY+OFLAGS2) Force print buffer to not empty. 
SCF Set carry flag to show printer being used. 
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PR-ALL-3 

МОФЕВ EX DE,HL HL contains the bit map address, 
DE contains display file pointer. 

PR-ALL-4 


Character can now be printed. Eight passes are make through the loop, one for each 
pixel line. 


MO6EC  EXAEAF' Carry flag set when using the printer. Save flag to 
Р”; 
LD A,(DE) Get the first byte of display file character. 
AND B Use the OVER mask then 
XOR (HL) XOR the bit map. 
ХОК C If INVERSE, do that. 
LD (DE),A Save back to display file. 
EX AEAF' Fetch printer flag and jump forward 
JR C, PR-ALL-6 if necessary. 
INC D Point to next byte in the display file. 
PR-ALL-5 
MO6F6 INC HL Point to next bit map character. 
DECA Decrement byte counter. 
JR NZ, PR-ALL-4 Jump back until all eight lines are done. 
EX DE,HL Put high-address for character area in H. 
DEC H 
BIT PR,(IY+OFLAGS) Set attribute byte for this character, only 
CALL Z, PO-ATTR for the screen. 
POP HL Restore destination and position values. 
POP BC 
DEC С Decrease the column number and 
INC HL increase destination address. 
RET 
PR-ALL-6 
When sending to the printer, the destination has to be updated by $20. 
M0708 EX AFAF' Save the printer flag. 
LD A,$20 Update the destination address by $20 
ADD A,E for print buffer rather than the display file. 
LD E,A 
EX AEAF' Fetch printer flag. 
JR PR-ALL-5 Go back to the loop. 


Set Attribute Byte Subroutine 


Identify and fetch the attribute byte. The new attribute value is set from the old value, 
ATTRT, MASKT and PFLAG. 


PO-ATTR (ATTBYT) 
M0710 LDA,H Get the high byte of the display file address 
RRCA Divide by 8 then AND with $03 to 
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RRCA determine which third of the screen is 
RRCA being addressed. 

AND $03 

OR $58 Generate the high byte of the 

LD H,A attribute address. 

LD DE,(ATTRT) D holds ATTRT, E holds MASKT 

LD A,(HL) Get the current attribute. 

ХОКЕ For every bit in D that is а 0, 

AND D the corresponding bit in A will 

XOR E come from E, else it will come from A. 


BIT F_CB, (IY- OPFLAG) 
JR Z,PO-ATTR-1 


f the foreground is complement of 
background, jump ahead. 


AND $C7 eep flash, bright and foreground colors. 
ВІТ 2,A Jump if green is active. 
JR NZ,PO-ATTR-1 
XOR $38 nvert foreground colors. 
PO-ATTR-1 


MO72F 


BIT F_CB,(IY+OPFLAG) 
JR Z,PO-ATTR-2 

AND $F8 

BIT 5,A 

JR NZ, PO-ATTR-2 
XOR $07 


PO-ATTR-2 
MO73D LD (HL),A 


RET 


f the foreground is complement of 
background, jump ahead. 

eep flash, bright and background colors. 
Jump if green is active 


nvert background colors. 


Store the new attribute value. 


Message Printing Subroutine 


Print messages and tokens. Register A holds the message or token entry number in a 
table. DE register pair holds the base address of the table. 


PO-MSG (PUTMES) 


MO73F  PUSHHL The high byte of the last entry 
LD H,$00 on the machine stack is made zero 
EX (SP),HL to suppress trailing spaces. 
JR PO-TABLE Go find string in buffer. 


PO-TOKENS (PRTTOK) 


Print the token represented by value is in A. 


M0745 LD DE,$0098 Base of token table. 
CP $5B Adjust token number, if necessary (range is 
JR C,MO74E $00 - $54). 
SUB $1F 

MO74E PUSH AF Save the code on the stack. 
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PO-TABLE 
MO74F CALL PO-SEARCH Find the message number A in table at (DE). 
JR C, PO-EACH No leading space needed, so jump ahead. 
LD A,$20 Print a leading space, if needed, before 
BIT SPC,(IY+OFLAGS) the message/token. 
CALL Z, PO-SAVE 
PO-EACH 
Characters of the message/token are printed. 
M075D LD A,(DE) Get the character. 
AND $7F Cancel any ‘inverted’ bit. 
CALL PO-SAVE Put the char to the current stream. 
LD A,(DE) Re-get the character. 
INC DE Advance the message pointer. 
ADD A,A Back around for more if the 
JR NC,PO-EACH high bit of the character is not set. 
POP DE Is a trailing space required? 
CP $48 Jump if the character is "$" 
JR Z,PO-TR-SP 
CP $82 Return if char is less than "A" 
RET C 


PO-TR-SP (PO-TRSP) 


Evaluate for printing a trailing space. 


M0770 LDA,D Examine value in D; return if 
CP $03 itis a message, RND, INKEY$ 
RET C or PI. 
LD A,$20 Output a space. 


PO-SAVE Subroutine 


Subroutine allows for characters to be printed recursively. Registers are saved while 
PRINT-OUT is called. 


PO-SAVE (PR_TV2) 


M0776 PUSH DE Save character pointer (DE). 
EXX Save HL & BC. 
RST $10 Output the character in A to the current stream. 
EXX Restore HL & BC. 
POP DE Restore character pointer (DE). 
RET 
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Find the message with index A located in table at DE. Carry flag is reset if a leading 


space should be printed. 


PO-SEARCH (FINDMSG) 
MO77C PUSH AF 

EX DEHL 

INCA 


PO-STEP 

MO77F  BIT 7,(HL) 
INC HL 
JR Z, PO-STEP 
DECA 
JR NZ, PO-STEP 
EX DEHL 
POP AF 
CP $20 
RETC 
LD A,(DE) 
SUB $41 
RET 


Test for Scroll Subroutine 


Save message number index. 
Put base address in HL. 
Bump message number. 


Skip over characters until an inverted 
character is found. 


Decrement msg number, count through 
until the correct message is found. 

DE points to the initial character. 

Restore the entry number and return with 
carry set for the first thirty two entries. 


If the initial character is a letter then a 
leading space may be needed. 


Called whenever there might be the need to scroll the display. This occurs when handling 
a carriage return; when using AT in an INPUT line or when the current line is full and the 
next line has to be used. B holds the line number under test. If the screen is full, exit via 


ERROR 5 - OUT OF SCREEN. 


PO-SCR (TVFUL) 

M0790 BIT PR,(IYtOFLAGS) 
RET NZ 
LD DE,CL-SET 
PUSH DE 
LD A,B 
BIT LHS,(IY+OTVFLAG) 
JP NZ, PO-SCR-4 
CP (IY+ODFSZ) 
JR C, REPORT-5 
RET NZ 
BIT TVLIST,(IY+OTVFLAG) 
JR Z,PO-SCR-2 
LD E,(IY+OBREG) 
DEC E 
JR Z,PO-SCR-3 
LD A,$00 
CALL CHAN-OPEN 
LD SP(LISTSP) 
RES TVLIST,(IY+OTVFLAG) 


Return if printing to printer. 


Load the machine stack with the address 
of CL-SET. 

Put line number in A. 

Jump if ‘INPUT ... AT’ in the lower 

half of the screen. 

Return if the line number is greater than 
the value of DFSZ. Exit via error 5 

if we are not on the last line. 

Jump if not an automatic listing. 


Fetch the line counter. 

Decrease the counter. 

Jump forward if the listing it to be scrolled. 
Otherwise, open channel K, 

restore the stack pointer, 

flag that the automatic listing has finished 
and return. 
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RET 
REPORT-5 (ERROR-5) 
MO7C1 RST $08 

DEFB $04 


PO-SCR-2 


Determine if the "Scroll?" prompt is needed. B contains the number of lines to scroll. 


MO7C3 DEC (IY+OSCRCT) 
JR NZ,PO-SCR-3 
LD A,$18 
SUB B 
LD (SCRCT),A 
LD HL,ATTRT) 
PUSH HL 
LD A,(PFLAG) 
PUSH AF 
LD A,$FD 
CALL CHAN-OPEN 
XOR A 
LD DE, SCROLLMSG 
CALL PO-MSG 
SET CLHS,(IY+OTVFLAG) 
LD HL,FLAGS 
SET LMODE2,(HL) 
RES KEYHIT,(HL) 
EXX 
CALL WAIT-KEY 
EXX 
CP $20 
JR Z,REPORT-D 
CP $E2 
JR Z,REPORT-D 
OR $20 
CP $6E 
JR Z,REPORT-D 
LD A,SFE 
CALL CHAN-OPEN 
POP AF 
LD (PFLAG),A 
POP HL 
LD (ATTRT),HL 


PO-SCR-3 
Scroll the display. 


М0800 CALL CL-SC-ALL 
LD B,(IY+ODFSZ) 
INC B 
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Error: Out of screen. 


Decrement scroll count. 
Jump if scroll count not zero (proceed) 
Reset counter. 

Subtract screen line number. 


Store the number of lines below B back 


into scroll count. Get the temporary 
printing attributes and save them. 
Save the printing flags. 


Stream -3 (keyboard/lower screen) 


Print the "SCROLL?" message. 
Force clearing the lower half screen. 


Force "L" mode at cursor. 
Force no keyboard input. 


Read the keyboard. 
Jump if a space. 
Jump if "STOP" token. 


Force lower case. 
Jump to BREAK if "n" is input. 


Open channel 'S' (main screen). 
Restore the printing flags/ 


Restore the temporary attributes 


Scroll the screen one line. 
The line and column numbers for the 
start of the line above the lower part of 
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LD C,$21 the display are found and saved. 

PUSH BC 

CALL CL-ADDR Get the display file address for line "B". 
LD A,H HL holds the address of the byte. 

RRCA 

RRCA 

RRCA 

AND $03 

OR $58 

LDH,A 


Line in question has 'lower part' attribute values and the new line at the bottom of the 
display may have 'ATTR-P' values so the attribute values are exchanged. 


LD DE,$5AEO Line 23 attribute address. 
LD A,(DE) A = line 23 attribute. 
LD C,(HL) С = line "B" attribute. 
LD B,$20 There are 32 bytes. 
EX DE,HL HL -» line 23, DE -» line "B". 
PO-SCR-3A 
М082В 10 (DEA Make the first exchange and proceed 
LD (HL),C to use the same value for the thirty two 
INC DE attribute bytes of the two lines being 
INC HL handled. 
DJNZ PO-SCR-3A 
POP BC Restore line and column numbers of upper 
RET part before returning. 
SCROLLMSG 
М0833  DEFB $80 
DEFM "scroll" &('?'+$80) 
REPORT-D 
М083В  RST $08 Error: Break - Cont repeats. 
DEFB $0C 
PO-SCR-4 
Handle the lower part of the display. 
MO83D CP $02 The 'out of screen' error is given if 
JR C,REPORT-5 the lower part is going to be 'too large' 
ADD A,(IY-- ODFSZ) and return if scrolling is not necessary. 
SUB $19 
RET NC 
NEG A now holds the number of scrolls. 
PUSH BC Save line and column numbers. 
LD B,A Get scroll number. 
LD HL,(ATTRT) Save MASKT and PLFAG. 
PUSH HL 
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LD HL,(PFLAG) 
PUSH HL 
CALL TEMPS 
LD A,B 


PO-SCR-4A 


The lower part of the screen is scrolled A number of times. 


M0857 


PUSH AF 

LD HL,DFSZ 

LD B,(HL) 

LD A,B 

INCA 

LD (HL),A 

LD HL,SPOSNLIN 
CP (HL) 

JR C,PO-SCR-4B 
INC (HL) 

LD B,$18 


PO-SCR-4B 


M0868 


CALL CL-SCROLL 

POP AF 

DEC A 

JR NZ,PO-SCR-4A 

POP HL 

LD (IY+OPFLAG),L 

POP HL 

LD (ATTRT),HL 

LD BC,(SPOSNCOL) 
RES LHS,(IY+OTVFLAG) 
CALL CL-SET 

SET LHS,(IY+OTVFLAG) 
POP BC 

RET 


Get scroll number. 


Save the number. 
Get DFSZ. 

Put in B. 

Copy to A. 
Increment A. 

Put at in DFSZ. 


Jump if only lower part is scrolled. 
Otherwise, inc SPOSNLIN and scroll 
entire display. 


Fetch and decrement the scroll number. 


Jump back until finished. 
Restore value of PFLAG. 


Restore values of ATTRT 

and MASKT. 

If SPOSNCOL has been changed, 
give matching value to DFCC. 


Reset TVFLAG to indicate lower part 
has been handled, restore line and col. 


Temporary Color Items Subroutine 


If printing to the upper screen, zero MASKT and transfer the border color to ATTRT, else 
transfer ATTRP to ATTRT. Also, if printing to the upper screen, transfer the perm 
attributes to the temp attributes via TEMPS-1. If printing to the lower half of the screen, 
put the temporary attributed into the permanent attributes. 


TEMPS (DO_ATTS) 


M0888 
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XOR A 

LD HL,(ATTRP) 

BIT LHS,(IY+OTVFLAG) 
JR Z,TEMPS-1 

LD H,A 

LD L,(IY+OBORDCR) 


Zero A. 
Get the permanent attributes and mask. 
Jump if not printing to lower half. 


Load attribute mask (take attrib from ATTRP). 
Get the border color. 


TEMPS-1 


M0896 


LD (ATTRT),HL 
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Store into the temp attributes. 


If zero flag=1, transfer the permanent attributes to the temporary attributes. If zero 
flag=0, update the temporary attributes. Enter with new attribute flags in A. 


M0899 


LD HL,PFLAG 
JR NZ,TEMPS-2 
LD A,(HL) 
RRCA 


TEMPS-2 
МО8АО XOR (HL) 


AND $55 
XOR (HL) 
LD (HL),A 
RET 


CLS Command 


CLS (K_CLS) 
М08А6 CALL CL-ALL 
CLS-LOWER (CLLHS) 
M0O8A9 LD HL,TVFLAG 
RES CLHS,(HL) 
SET LHS,(HL) 
CALL TEMPS 
LD B,(IY+ODFSZ) 
CALL CL-LINE 
LD HL,$5ACO 
LD A,(ATTRP) 
DEC B 
JR CLS-3 
CLS-1 
MO8C2 LD C,$20 
CLS-2 
MO8CA DEC HL 
LD (HL),A 
DECC 
JR NZ,CLS 
CLS-3 
MO8C9  DJNZ CLS-1 


LD (IY+ODFSZ),02 


Get the print flag address. 

Jump forward if dealing with lower part of screen. 
Fetch the print attribute flags and 

make the perm flags the temp flags. 


Copy the even bits of A to PFLAG. 


n the first instance, the whole display is cleared: the pixels are all reset and the attribute 
bytes are set to equal the value in ATTRP, then the lower part of the display is reset. 


Clear the entire screen. 


Force no clear LHS when key pressed. 

Force printing to LHS. 

Set up the attributes. Effectively transfers the 
permanent attributes to the temporary attributes. 
Get the size of the lower screen half. 

Clear the lower screen half. 

Address of end of lower screen attributes+1 

Get the permanent attributes 

Normalize line counter for 1 base 


32 characters per line. 


Go back to the line setting 
the attribute bytes. 
Jump until all 32 characters 
have been cleared. 


Jump back until finished. 
Force 2 lines for the LHS 
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CL-CHAN 


MO8CF LDA,$FD Open channel K (keyboard/lower screen) 


CALL CHAN-OPEN 
LD HL,(CURCHL) 
LD DE,PRINT-OUT 
AND A 


CL-CHAN-A 
MO8DB LD (HL),E 


INC HL 

LD (HL),D 

INC HL 

LD DE, KEY-INPUT 
CCF 

JR C,CL-CHAN-A 
LD BC,$1721 

JR CL-SET 


Get the address of current channel and set 
output address. 
reset the carry flag 


Update the current channel output 
routine address, 
then the input routine address. 


Loop counter. 


Line 2, start of line. 
Update the printing parameters. 


Clear the Whole Display Area Subroutine 


Called from the CLS command routine, the main execution routine and the automatic 
listing routine. 


CL-ALL (CLS) 

MO8EA LD HL,$0000 Zero the X and Y print 
LD (XCOORD),HL coordinates. 
RES ALOS,(IY--OFLAGS2) Signal screen is clear. 
CALL CL-CHAN 


LD A,$FE Open channel 'S' (main screen). 
CALL CHAN-OPEN 

CALL TEMPS Update the attributes. 

LD B,$18 Clear 24 lines of the display. 
CALL CL-LINE 


Get the address of the current channel 
output routine. 


LD HL,(CURCHL) 
LD DE,PRINT-OUT 


LD (HL),E Make the current output channel 
INC HL the TV. 

LD (HL),D 

LD (IY+OSCRCT),01 Reset scroll counter. 


LD BC,$1821 Set the cursor pointers to the top left corner of 


the screen. 


CL-SET Subroutine 


BC holds the line and column numbers of character areas or the C register holds the 
column number within the printer buffer. The appropriate address of the first character bit 
is then found. Returns via PO-STORE to store all the values in the required system 
variables. 


CL-SET (STTVC) 
M0914 LD HL,PRBUF 


Point to printer buffer. 
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CL-SET-1 


M0929 


BIT PR,(IY+OFLAGS) 
JR NZ,CL-SET-2 

LD A,B 

BIT LHS,(IY+OTVFLAG) 
JR Z, CL-SET-1 

ADD A,(IY+ODFSZ) 
SUB $18 


PUSH BC 
LD B,A 
CALL CL-ADDR 


POP BC 


CL-SET-2 


М092Ғ 


LD A,$21 

SUB C 

LD E,A 

LD D,$00 
ADD HL,DE 
JP PO-STORE 


Scrolling Subroutine 
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Jump if printing to the printer. 


Get the line number into A. 

Jump if not printing to 

the lower half of the screen. 

Add the number of lines in the lower 
screen. 


Briefly save line and column numbers. 
Put line number in A. 

Find the display file address for the 
screen line in B. 

Restore line and column numbers. 


Reverse column number and transfer 
the char position in C in to DE. 


Display file address for the char in 


Update character pointers. 


Number of lines to scrolled is in the B register. 


CL-SC-ALL (SCRL1) 


Entry point to scroll one line and after “scroll?” 


M0939 


LD B,$17 


CL-SCROLL (SCRLB) 


Entry point to scroll "B" lines. 


М093В САШ CL-ADDR 


LD C,$08 


CL-SCR-1 
Main scrolling loop. B register holds the number of the top line to be scrolled, the HL 
register pair the starting address of this line in the display file and С register the pixel line 


counter. 


M0940 


PUSH BC 

PUSH HL 

LD A,B 

AND $07 

LD A,B 

JR NZ,CL-SCR-3 


Get the line's address in Display File 1. 
8 scan (‘pixel’) lines per character line. 


Save scan line counter. 

Save the display file "FROM" address. 

Save character lines and 

test if this is the last scan line in the character line. 
Save the character line counter. 

Jump if the not the last scan line in the character 
line. 
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CL-SCR-2 


The pixel lines of the top lines of the thirds of the display have to be moved across the 2K 
boundaries. (Each third = 2K.) 


M0948 EX DE,HL 


LD HL,$F8E0 
ADD HL,DE 


EX DE,HL 


LD BC,$0020 


DECA 
LDIR 


CL-SCR-3 


Make DE point to the previous 
scan line. 


HL now points to the line that number was in В. 
DE points to the line before it. 

32 characters. 

Decrement the character line counter. 

Move the 32 bytes. 


The pixel lines within the 'thirds' can now be scrolled. The A register holds, on the first 
pass, +01 - +07, +09 - «OF or +11 - +17. 


M0954  EXDE,HL 


LD HL,$FFEO 
ADD HL,DE 


EX DE,HL 
LD BA 
AND $07 
RRCA 
RRCA 
RRCA 
LD СА 
LD A,B 
LD B,$00 
LDIR 

LD B,$07 


ADD HL,BC 


AND $F8 


JR NZ,CL-SCR-2 


POP HL 
INC H 
POP BC 
DEC C 


JR NZ,CL-SCR-1 
Scroll the attribute bytes, too. 


CALL CL-ATTR 
LD HL,$FFEO 
ADD HL,DE 


EX DE,HL 
LDIR 
LD B,$01 
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Make DE point to required destination. 
Move HL to point back one character line. 


Save the line number in B. 
Find out how many characters are 
remaining in the ‘third’. 


Pass character total to C. 

Fetch line number. 

BC holds ‘character total’ and a pixel line 
from each of the characters is scrolled. 
Prepare to increment the address to jump 
a ‘third’ boundary. 

Jump back if there are any ‘thirds’ left. 


Fetch original address. 

Address the next pixel line. 

Fetch counters. 

Decrease pixel line counter. 

Jump back unless eight lines have been moved. 


Form the address for the attributes. 
Subtract 32 from DE to get to location 
for attribute bytes. 


Scroll attribute bytes. 
Clear the bottom line of the display. 


Clear Lines Subroutine 


Clear lower B lines of the display. 


CL-LINE 
M097F 


(CLS B) 
PUSH BC 
CALL CL-ADDR 


LD C,$08 


CL-LINE-1 


М0985 


PUSH BC 
PUSH HL 
LD A,B 


CL-LINE-2 


M0988 


Scroll the 


AND $07 
RRCA 

RRCA 

RRCA 

LD C,A 

LD A,B 

LD B,$00 
DEC C 

LD D,H 

LD E,L 

LD (HL),$00 
INC DE 
LDIR 

LD DE,$0701 
ADD HL,DE 
DEC A 

AND $F8 

LD B,A 

JR NZ,CL-LINE-2 
POP HL 

INC H 

POP BC 
DECC 

JR NZ,CL-LINE-1 


attribute bytes, too. 


CALL CL-ATTR 

LD H,D 

LD ЦЕ 

INC DE 

LD A,(ATTRP) 

BIT LHS,(IY+OTVFLAG) 
JR Z,CL-LINE-3 
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Save the line number to clear. 

HL=location in Display File 1 where the line in B 
resides. 

8 scan lines per character line. 


Save the scan line counter. 
Save the scan line address. 
Get the character line number. 


Number of character lines to clear in this 
block. 


С holds the result; О for a third. 

Fetch the line number. 

Make BC pair hold one less than 
number of characters. 

Copy the first location to clear 

to DE. 

Clear the pixel-byte of the first char. 
Make DE point to the second character. 
Clear the scan line. 

Point to the start of the next 

scan line in the next block. 

Decrement the character line counter. 
Discard any extra lines and 

pass the ‘third’ count to B. 

Jump back if there are still ‘thirds’ to address. 
Update the address for each pixel line. 


Fetch scan line counter. 
Decrease scan line counter. 
Jump back unless finished. 


Get the start address of the attributes. 
Copy the attribute start address to HL. 


Point to second attribute byte. 


Get the permanent attributes. 
Jump if doing the upper half screen. 
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LD A,(BORDCR) Use border color is used for the lower 
screen half. 
CL-LINE-3 
MO9BB LD (HL),A Set attribute byte. 
DEC BC Adjust counter. 
LDIR Copy the value all the attributes. 
POP BC Restore line number. 
LD C,$21 Set the column number to left 
RET column and return. 


CL-ATTR Subroutine 


This subroutine has two functions: 

* For a given display area address, the appropriate attribute address is returned in the DE 
register. Note that the value on entry points to the 'ninth' line of a character. 

* For a given line number, in the B register, the number of character areas in the display 
from the start of that line onwards is returned in the BC register pair. 


CL-ATTR 
MO9C3 ШАН Fetch the high byte. 
RRCA Multiply by 32. 
RRCA 
RRCA 
DECA Go back to the 'eight' line. 
OR $50 Address the attribute area. 
LD H,A Restore the high byte and transfer 
EX DE,HL address to DE. 
LD H,C This is always zero. 
LD L,B Get the number of character lines. 
ADD HL,HL Multiply by 32. 
ADD HL,HL 
ADD HL,HL 
ADD HL,HL 
ADD HL,HL 
LD B,H number of attribute bytes 
LD C,L to change 
RET 


CL-ADDR Subroutine 


Form the base address in Display File 1 of the line number in B. On exit, HL points to the 
location in Display File 1 where the line resides. Perform the calculation $4000+ 
$100*INT(line#/2)+(32*(line# AND 7)), where line # = 24-B. 


CL-ADDR 
MO9D6 LDA,$18 Reverse the line number. 
SUB B 
LD D,A Save result to D. 
RRCA (A mod 8) *32. 
RRCA 
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RRCA 
AND $E0 
LD ЦА 
LD A,D 
AND $18 
OR $40 
LD H,A 
RET 


Scroll Wait Subroutine 
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Low byte in A. 
True line number fetched. 


Wait for a key, then clear the lower half screen. 


SCR-WAIT 

MO9E7 PUSH AF 
PUSH BC 
PUSH DE 
LD BC,$9C40 


SCR-WAIT-LOOP 
MO9ED DEC BC 
LDA,C 
ORB 
JR NZ,SCR-WAIT-LOOP 


SCR-KEY-PRESS 
MO9F2 XORA 
IN A,($FE) 
AND $1F 
CP $1F 
ЈК Z, SCR-KEY-PRESS 
CALL CLS-LOWER 
POP DE 
POP BC 
POP AF 
RET 


COPY Command 


Save registers. 


40,000 


Count down to 0 


Clear A and carry flag. 
Loop until no keys are pressed 


Clear the lower half screen. 
Restore registers. 


Dump the screen to the printer. 


COPY (K_DUMP) 
MOAO2 DI 
LD В,5В0 
LD HL,DF1 


COPY-1 

MOAO8 PUSH HL 
PUSH BC 
CALL COPY-LINE 
POP BC 


Disable interrupts. 

22 character lines * 8 scan lines per character. 
HL points to display file #1. 

Save the base address and number of line. 
Output (HL) to the printer. 


Fetch line number and base address. 
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POP HL 

МСН Point to the next scan line 
LD A,H Jump if we have not finished 
AND $07 8 scan lines. 

JR NZ, COPY-2 


Update the base address for each new line of characters. 


COPY-2 
MOA1F 


LD A,L Bump to the next character 

ADD A,$20 line. 

LD LA Carry flag will be reset when ‘within thirds’ of 
display. 

CCF Change carry flag. 

SBC A,A A=$F8 if in the same DF segment or A=$00 if 
going to the next segment. 

AND $F8 -8 

ADD A,H Subtract 8 to put H back to where 

LD H,A it should be. 

DJNZ COPY-1 Jump back until all scan lines have printed. 

JR COPY-END Jump forward to end routine. 


COPY-BUFF Subroutine 


Called when the printer buffer contents are passed to the printer. 


COPY-BUFF (DUMPPTR) 


MOA23 DI Disable interrupts. 
LD HL,PRBUF Point to the printer buffer. 
LD B,$08 Eight scan lines. 
OPY-3 
MOA29 PUSH BC Save scan line counter. 
CALL COPY-LINE Output the buffer to the printer. 
POP BC Restore the scan line counter. 
DJNZ COPY-3 Back around for all of the scan lines. 
COPY-END 
MOA30 LDA,$04 Stop printer motor off. 
OUT ($FB),A 
El Interrupts back on. 


Clear Printer Buffer Subroutine 


CLEAR-PRB (CLEAR-PRB) 


МОАЗ5 
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LD HL,PRBUF Point to the printer buffer. 

LD (IY+OPRCC),L The printer cursor now points to the first 
location of the printer buffer. 

XORA Clear A. 


LD BA 


PRB-BYTES 
MOA3D LD (HL),A 
INC HL 
DJNZ PRB-BYTES 
RES PRLEFT,(IY+OFLAGS2) 
LD C,$21 
JP CL-SET 


COPY-LINE Subroutine 
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Set B to 256 bytes. 


The 256 bytes of the buffer 
are cleared. 


Signal buffer is empty. 
Set printer position and 
return. 


Output the bytes at (HL) to the printer as one scan line of character data. HL points to a 
32 byte buffer; B contains scan line number. 


COPY-LINE (PRSCAN) 
MOA4A LD A,B 
CP $03 
SBC A,A 
AND $02 
OUT ($FB),A 
LD D,A 


COPY-L-1 

MOA53 САШ BREAK-KEY 
JR C,COPY-L-2 
LD A,$04 
OUT ($FB),A 
El 
CALL CLEAR-PRB 
RST $08 
DEFB $0C 


COPY-L-2 
MOA62 ІМ A,($FB) 
ADD A,A 
RET M 
JR NC,COPY-L-1 
LD C,$20 


COPY-L-3 

MOA6A  LD E,(HL) 
INC HL 
LD B,$08 


COPY-L-4 

MOA6E RLD 
RLE 
RRD 


Copy the scan line number. 
A will hold O until last two scan lines are 
being handled. 


Slow the printer motor for the last two 
scan lines. D will hold either O or 2. 


Jump if break key not pressed. 
Turn printer motor off. 


Enable interrupts. 
Clear the printer buffer and exit via 
Error: Break - Cont repeats. 


Read printer port. 
Return if printer "NOT CONFIGURED”. 


Jump if not "START OF PAPER”. 
32 characters. 


Get the first byte to output. 
Point to the next. 
8 bits of data. 


Rotate D left. 
Move each bit of E in to carry. 
Move D right, pick up carry. 


47 


HOME ROM 


COPY-L-5 
MOA74 ІМ A,($FB) 
RRA 
JR NC,COPY-L-5 
LD A,D 
OUT ($FB),A 
DJNZ COPY-L-4 
DEC С 
JR NZ,COPY-L-3 
RET 


Editor Routines 


Wait until printer is ready 
for the next pixel. 


Output the pixel to the 

printer. 

Loop until the bit counter is zero. 
Loop until the byte counter is zero. 


The editor is called by the main execution routine, so that the user can enter a 
BASIC line into the system, and the INPUT command routine. 


EDITOR (EDIT_K) 
М0ОА82 LD HL,(ERRSP) 
PUSH HL 


ED-AGAIN 

MOA86 LD HL,$0BE5 
PUSH HL 
LD (ERRSP),SP 


ED-LOOP 
Loop to handle each keystroke. 


MOA8E CALL WAIT-KEY 
PUSH AF 
LD D,$00 
LD E, (IY-- OPIP) 
LD HL,$00C8 
CALL BEEPER 
POP AF 
LD HL,$0A8E 
PUSH HL 


Handle some exceptions. 


CP $0C 

JR NZ, ED-LOOP-1 

БІТ DELREP,(IY+OFLAGS2) 
JR NZ, ED-LOOP-1 

BIT LMODE2,(IY+OFLAGS) 
JR 2, ADD-CHAR 
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Push the error stack pointer onto 
the stack. 


Address of ED-ERROR. 
Any event that leads to the error handling 
will go to ED-ERROR. 


Get a character from the current channel. 
Save the character. 
Get duration of keyboard click. 


And pitch. 

Make the sound. 

Get the character. 

Push ED-LOOP address to stack. 


Jump if not DELETE. 


Jump if DELETE key is 
held down. 
Jump if not "L" mode. 
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ED-LOOP-1 
Analyze the code. 
MOAB2 CP $18 Jump if potentially a letter or token. 
JR NC, ADD-CHAR 
CP $07 Accept a comma. 
JR C, ADD-CHAR 
CP $10 Jump if an editing key. 
JR C, ED-KEYS 
LD BC,$0002 INK to TAB considered. 
LD D,A Copy code to D. 
CP $16 Jump forward with INK and PAPER. 
JR C, ED-CONTR 
INC BC Handle AT, TAB. 
BIT LINPLN,IY--OFLAGX) Jump forward unless dealing with 
JP Z, ED-IGNORE INPUT LINE. 
CALL WAIT-KEY Get second code and put it in E. 
LD E,A 
ED-CONTR 
INK, PAPER, FLASH, BRIGHT, INVERT, OVER 
MOAD2 CALL WAIT-KEY Get another code. 
PUSH DE Save the previous codes. 
LD HL,(KCUR) Fetch KCUR. 
RES O,(IY- OMODE) Signal K mode. 
CALL MAKE-ROOM Make two or three spaces. 
POP BC Restore the previous codes. 
INC HL Point to the first location. 
LD (HL),B Enter first code. 
INC HL Then the second code, which will be 
LD (HL),C overwritten if INK or PAPER. 
JR ADD-CH-1 
ADDCHAR Subroutine 


Add the code to the current EDIT or INPUT line. 
ADD-CHAR (INSA) 


MOAE7 RES 0,(IY+OMODE) Force K mode. 
LD HL,(KCUR) Fetch cursor position. 
CALL ONE-SPACE Make a single space. 

ADD-CH-1 

MOAF1 LD (DE),A Enter the code into the space and 
INC DE signal that the cursor goes to location 
LD (KCUR),D after. 
RET Return to ED-LOOP. 
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ED-KEYS 
EDIT, CSR_LT, CSR_RT, CSR_DN, CSR_UP, DELETE, CR, SYM-SHFT, GRAPHICS 


MOAF8 


LD E,A 
LD D,$00 
LD HL,MOBO6 


ADD HL,DE 


LD E,(HL) 


ADD HL,DE 


PUSH HL 
LD HL,(KCUR) 
RET 


EDITING KEYS TABLE 


MOBO6 


DEFB EDIT $09 
DEFB cursor left $66 


DEFB cursor right $6A 
DEFB cursor down $50 


DEFB cursor up $B5 
DEFB DELETE $70 
DEFB ENTER $7E 


DEFB SYMBOL SHIFT $CF 
DEFB GRAPHICS $D4 


Move code to DE pair. 


Base address of editing key table. 
Get entry and fetch in to E. 


Save address of edit key handler 
to the stack. 

Set HL pair and 

jump to the edit key handler. 


Edit Key Subroutine 


When in editing mode, pressing the EDIT key will bring the current BASIC line to the 
editor. In INPUT mode, the EDIT key clears the current entry. 


ED-EDIT (EDITCMD) 


MOBOF 
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LD HL,(EPPC) 


ВІТ INPLN,(IY+OFLAGX) 


JP NZ,CLEAR-SP 
CALL LINE-ADDR 
CALL LINE-NO 
LD A,D 

ORE 

JP Z, CLEAR-SP 
PUSH HL 

INC HL 

LD C,(HL) 

INC HL 

LD B,(HL) 

LD HL,$000A 
ADD HL,BC 

LD B,H 

LD C,L 

CALL TEST-ROOM 
CALL CLEAR-SP 
LD HL,(CURCHL) 


Get the current line number. 
Jump forward if in ‘INPUT mode.’ 


Find the address of the start of the current 
line and its number. 

If the line number returned is zero 

then clear the editing area. 


Save the address of the line. 
Move on to collect the length of the line. 


Add $0A to the length and test that there 
is sufficient room for a copy of the line. 


Clear the editing area. 
Fetch the current channel address and 


EX (SP),HL 

PUSH HL 

LD A,SFF 

CALL CHAN-OPEN 
POP HL 

DEC HL 

DEC (IY+OEPPC) 
CALL LPO 

INC (IY+OEPPC) 
LD HL,(ELINE) 

INC HL 

INC HL 

INC HL 

INC HL 

LD (KCUR),HL 
POP HL 

CALL CHAN-FLAG 
RET 
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exchange it for the address of the line 
Save it temporarily. 

Open channel 'R' so line will be copied 
to the editing area. 

Get the address of the line. 

Go to before the line. 

Decrement current line number to avoid 
printing the cursor, print the line. 
Increment current line number. 

Fetch start of the line in the editing area 
and step past the line number and the 
length to find the address for KCUR. 


Fetch the former channel address and 
set the appropriate flags before returning 
to ED-LOOP. 


Cursor Down Editing Subroutine 


ED-DOWN (CSR DNCMD) 
МОВ59 BIT INPLN,(IY+OFLAGX) 
JR NZ, ED-STOP 


Jump if in ‘INPUT mode.’ 


LD HL,EPPC Find next line number and 
CALL LN-FETCH produce automatic listing. 
JR ED-LIST 

ED-STOP 

MOB67 LD (IY-- OERRNR),$10 'STOP in INPUT' report. 
JR ED-ENTER 


Cursor Left Editing Subroutine 


ED-LEFT (CSR LTCMD) 
MOB6D CALL ED-EDGE 
JR ED-CUR 


Move cursor. 
Jump forward. 


Cursor Right Editing Subroutine 


ED-RIGHT (CSR_RTCMD) 


MOB72 LD A,(HL) Is the current character a carriage return? 
CP $0D 
RET Z Yes, return. 
INC HL Otherwise, put cursor after character. 
ED-CUR 
MOB77 LD (KCUR),HL Update KCUR 


RET 
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Delete Editing Subroutine (DELSYM) 


HL contains the address of the item to be deleted. 


ED-DELETE (DELETECMD) 
MOB7B CALL ED-EDGE 

LD BC,$0001 

JP RECLAIM-2 


ED-IGNORE Subroutine 


Move cursor left. 
Reclaim the current character. 


ED-IGNORE 
MOB84 CALL WAIT-KEY 
CALL WAIT-KEY 


Enter Editing Subroutine 


Next two code from key-input 
are ignored. 


ED-ENTER (CRCMD) 
MOB8A POP HL 
POP HL 


ED-END 
MOB8C POP HL 
LD (ERRSP),HL 
BIT 7,(IY+OERRNR) 
RET NZ 
LD SP.HL 
RET 


ED-EDGE Subroutine 


Discard addresses of ED-LOOP and 
ED-ERROR. 


Restore old value of ERR-SP. 
Return if no errors. 


Otherwise, indirect jump to error 
routine. 


The address of the cursor is in the HL register pair and will be decremented unless the 
cursor is already at the start of the line. Care is taken not to put the cursor between 


control characters and parameters. 


ED-EDGE 

MOB97 SCF 
CALL SET-DE 
SBC HL,DE 
ADD HL,DE 
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DE with either hold E-LINE (for editing) 
or WORKSP (for ‘INPUTing’). 

Carry flag will be set if cursor is already 
at start of the line. 

Correct for subtraction. 

Drop the return address. 

Return via ED-LOOP if carry flag is set. 
Restore the current address. 

Move the current address of the cursor 
to BC. 


ED-EDGE-1 
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Loop to check that control characters are not split from their parameters. 


MOBA4 LDH,D 
LD L,E 
INC HL 
LD A,(DE) 
AND $ЕО 
CP $10 
JR NZ, ED-EDGE-2 
INC HL 
LD A,(DE) 
SUB $17 
ADC A,$00 
JR NZ, ED-EDGE-2 
INC HL 


ED-EDGE-2 
MOBB7 ANDA 
SBC HL,BC 
ADD HL,BC 
EX DE,HL 
JR C, ED-EDGE-1 
RET 


HL will point to the character in the line 
after that addressed by DE. 


Fetch character code. 
Jump forward if the code does 
not represent INK to TAB. 


Allow for one parameter. 

Fetch the code again. 

Carry is reset for TAB. 

Differentiate between AT and TAB. 
Jump forward unless AT or TAB. 


AT and TAB have two params, so do that. 


Prepare for true subtraction. 

Carry flag will be reset when 'updated 
pointer’ reaches KCUR. 

For the next loop use ‘updated pointer’ 
but if exiting, use ‘present pointer’ 

for KCUR. 


Cursor Up Editing Subroutine 


ED-UP (CSR_UPCMD) 
MOBBF BIT INPLN,(IY+OFLAGX) 
RET NZ 
LD HL,(EPPC) 
CALL LINE-ADDR 
EX DE,HL 
CALL LINE-NO 
LD HL,EPPC+1 
CALL LN-STORE 


ED-LIST 
MOBD4 CALL AUTO-LIST 
LD A,$00 
JP CHAN-OPEN 


ED-SYMBOL Subroutine 


Return if in ‘INPUT mode.’ 


Get listing current line number 
and its address. 

HL now points to previous line. 
DE=line number 


Store the line number. 
List the line and re-open channel ‘K’ 


(lower screen) before returning to 
ED-LOOP. 


Handle SYMBOL and GRAPHIC codes. 


ED-SYMBOL 
MOBDC ВІТ LINPLN,(IY+OFLAGX) 
JR 2, ED-ENTER 


Test if in INPUT LINE mode. 
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ED-GRAPH (ED-GRAPHIC) 
MOBE2 ЈР ADD-CHAR 


ED-ERROR Subroutine 


Come here if there's been an error. 


ED-ERROR 
MOBE5 ВІТ RETPOS,(IY-OFLAGS2) Jump back if using channel other 
JR Z,ED-END than ‘K’. 
LD (IY+OERRNR),$FF Cancel error number and 
LD D,$00 make a noise before 
LD E,(IY+ORASP) going around the editor 
LD HL,$1A90 again. 
CALL BEEPER 
JP ED-AGAIN 


CLEAR-SP Routine 


Clear editing area or workspace as directed. 


CLEAR-SP (DEL_C) 


MOBFD PUSH HL Save pointer to the space. 
CALL SET-HL DE will point to the first character 
DEC HL and HL to the last. 
CALL RECLAIM-1 Deletes the bytes HL and DE. 
LD (KCUR),HL System variables KCUR and MODE 
LD (IY+OMODE),00 are initialized before 
POP HL restoring the pointer and 
RET returning. 


Keyboard Input Subroutine 


Returns the code of the last key pressed. CAPS LOCK, mode changing and color control 
parameters are handled here, too. 


KEY-INPUT (IN-K) 
MOCOE BIT ECHREQ,(IY+OTVFLAG) Call if echo to screen requested. 


CALL NZ,ED-COPY INPUT-line to the screen if mode has changed. 
AND A Return with both carry and zero flags reset 

BIT KEYHIT,(IY+OFLAGS) if no new key has been pressed. 

RET Z 

LD A,(LASTK) Otherwise, get the code and signal that it 

RES KEYHIT,(IY+OFLAGS) has been taken. 

PUSH AF Save code temporarily. 


BIT CLHS,(IY+OTVFLAG) Clear lower part of the display if necessary. 
CALL NZ,CLS-LOWER 


POP AF Fetch the code. 

CP $20 Accept all characters and tokens. 
JR NC,KEY-DONE 

CP $10 Jump forward with most control 
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JR NC,KEY-CONTR 
CP $06 
JR NC,KEY-M&CL 


ADD A,$12 
JR KEY-DATA 


KEY-M&CL 


MOC41 


JR NZ, KEY-MODE 
LD HL,FLAGS2 

LD A,$08 

XOR (HL) 

LD (HL),A 

JR KEY-FLAG 


KEY-MODE 
Moc4c CP $0E 


RET C 

SUB $0D 

LD HL,MODE 

CP (HL) 

LD (HL),A 

JR NZ, KEY-FLAG 
LD (HL),$00 


KEY-FLAG 
MOC5A SET ECHREQ,(IY+OTVFLAG) Signal mode might have changed. 


CPA 
RET 


KEY-CONTR 
Control codes (except FLASH, BRIGHT, INVERSE) adjusted. 


MOC60 LDB,A 


AND $07 

LD СА 

LD A,$10 

BIT 3,B 

JR NZ,KEY-DATA 
INCA 
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character codes. 
Jump forward with the ‘mode.’ 


Deal with FLASH, BRIGHT and INVERSE. 
Keep only bit 0. 

С holds О (OFF) or 1 (ON). 

Fetch the code. 

Rotate to lose bit 0. 

Increase by $12 to mark as FLASH, 
BRIGHT, and INVERSE. 


Jump forward for ‘mode’ codes. 


Flip bit 3 (CAPS LOCK) of FLAGS2. 


Check lower limit. 
Reduce the range. 


Has mode been changed? 
Enter new mode code. 
Jump if it has changed. 
Otherwise, make it L mode. 


Reset carry flag. 


Save the code. 

Make the C register hold 

the parameter. 

A now holds INK code. 

But if the code was an unshifted 
code then make A hold PAPER. 
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KEY-DATA 
Parameter is saved in KDATA and the channel address changed from KEY-INPUT to KEY- 
NEXT. 


MOC6B LD (IY+(-$2D)),C Save the parameter. 
LD DE,$0C73 Address of KEY-NEXT. 
JR КЕҮ-СНАМ 

KEY-NEXT 


On the first pass entering at KEY-INPUT, A register is returned holding a control code. 
On the next pass, entering at KEY-NEXT, the parameter is returned. 


MOC73 LDA,(KDATA) Fetch the parameter. 
LD DE,$0COE Address of KEY-INPUT. 

KEY-CHAN 

Set the input address in the first channel area. 

MOC79 LD HL,(CHANS) Fetch channel address. 
INC HL 
INC HL 
LD (HL),E Set the input address. 
INC HL 
LD (HL),D 

KEY-DONE 

Exit with the required code in A. 

MOC81 SCF Show a code has been found 
RET and return. 


Lower Screen Copying Subroutine 


Called when the line in the editing area or the INPUT area is to be printed in the lower 
part of the screen. 


ED-COPY 

М0С83 CALL TEMPS Use the permanent colors. 
RES ECHREO,(IY--OTVFLAG) Signal that the mode is unchanged; 
RES CLHS,(IY--OTVFLAG) lower screen does not need clearing. 


LD HL,(SPOSNLCOL) Save the print line and column. 

PUSH HL 

LD HL,(ERRSP) Save the error stack pointer 

PUSH HL 

LD HL, $0CCD Address of local error handler. 

PUSH HL Push to stack to make ED-FULL entry point 
LD (ERRSP),SP for errors. 

LD HL,(ECHOE) Push the value of ECHO-E to the stack. 
PUSH HL Make HL point to start of space and DE to 
SCF end. 

CALL SET-DE Returns with DE pointing to the WORKSP 
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EX DE,HL 

CALL OUT-LINE2 

EX DE,HL 

CALL OUT-CURS 

LD HL,(SPOSNLCOL) 
EX (SP),HL 

EX DE,HL 

CALL TEMPS 


ED-BLANK 
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or ELINE if expecting user input. 
Print the line. 
Exchange pointers and print cursor. 


Fetch current value of SPOSNLCOL and 
exchange with ECHOE. 

Pass ECHOE to DE. 

Fetch the permanent colors. 


Remainder of any line that has been started is completed with spaces printed with the 


‘permanent’ PAPER color. 


MOCB6 LD A,(SPOSNLLIN) 
SUB D 
JR C, ED-C-DONE 
JR NZ, ED-SPACES 
LD A,E 
SUB (IY+OSPOSNLCOL) 
JR NC, ED-C-DONE 


ED-SPACES 
Mocc4 LDA,$20 
PUSH DE 
CALL PRINT-OUT 
POP DE 
JR ED-BLANK 


ED-FULL 


Deal with any errors. 


MOCCD LD D,$00 
LD E,(IY+ORASP) 
LD HL,$1A90 
CALL BEEPER 
LD (IY+OERRNR),$FF 
LD DE,(SPOSNLCOL) 
JR ED-C-END 


ED-C-DONE 


Fetch current line number and 

subtract the old line number. 

Jump forward if no ‘blanking’ is required. 
Jump forward if not on the same line. 

Get old line number and subtract the new 
column number. 

Jump if no spaces are required. 


A space code. 

Save the old values. 
Print it. 

Restore the old values. 
Back again. 


Make a noise. 


Cancel the error number. 
Fetch current value and jump 
forward. 


Normal exit upon completion of copying the INPUT line. 


MOCE2 POPDE 
POP HL 


ED-C-END 

MOCE4 POP HL 
LD (ERRSP),HL 
POP BC 
PUSH DE 
CALL CL-SET 


New position value. 
Error address. 


Restore old value of ERRSP. 
Fetch old value of SPOSNL. 


Save new position values. 
Set system variables. 
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POP HL Old value of SPOSNL 
LD (ECHOE),HL goes into ECHOE. 
LD (IY+(OXPTR+1)),00 X_PTR is cleared. 
RET 


SET-HL and SET-DE Subroutines 


These subroutines return with HL pointing to the first location and DE the ‘last’ location of 
either the editing area or the work space. 


SET-HL 
MOCF6 LD HL,(WORKSP) Point to the last location of the editing 
DEC HL buffer. 
AND A Clear the carry flag. 
SET-DE 
MOCFB LD DE,(ELINE) Point to start of the edit buffer and 
BIT INPLN,(IY+OFLAGX) return if in ‘editing mode’. 
RET Z 
LD DE,(WORKSP) Otherwise, change DE. 
RET C Return if intended. 
LD HL,(STKBOT) Fetch STKBOT and then 
RET return. 


REMOVE-FP Subroutine 


Removes the hidden floating-point characters (slugs) in a BASIC line. 


REMOVE-FP (DESLUG) 


MODOD LDA,(HL) Get a character. 
CP $0E Is it a number marker (slug)? 
LD BC,$0006 If yes, it occupies 6 locations. 
CALL Z,RECLAIM-2 Delete the floating-point number, 
LD A,(HL) Get the character again. 
INC HL Update the pointer. 
CP $0D End of line? 
JR NZ, REMOVE-FP Go back around until the end of line. 
RET 
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Executive Routines 


This section includes the initialization procedure and the main execution loop for 
the BASIC interpreter. 


In the TS 2068, BASIC lines entered by the user are checked for correct syntax 
before they are saved in the program (if they start with a line number) or before 
they are executed (for immediate commands). 


Initialization Routine 


Main entry to this routine is at START/NEW (MOD31). When entered from START (0000), 
as when the computer is turned on, А=0 and DE=FFFF. Main entry point is also reached 
after executing the NEW command routine. 


NEW (K NEW) 
MOD1D DI Disable interrupts. 
LD A,$FF NEW flag. 
LD DE,(RAMTOP) Preserve existing value of RAMTOP. 
EXX Load alternate registers 
LD BC,(PRAMT) with the following system 
LD DE,(RASP) variables, all of which will be 
LD HL,(UDG) preserved. 
EXX 
INIT 
System initialization. Enter with A=0 and DE=FFFF and interrupts disabled. 
START-NEW 
MOD31 LDB,A Save flag for later. 
LD A,$07 Make the border white. 
OUT ($FE),A 
LD A,$3F Initialize | 
LD I,A and set A to bottom of RAM (3FFF). 
NOP Wait 24 T states. 
NOP 
NOP 
NOP 
NOP 
NOP 
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RAMCHECK 
Check the memory. 
MOD40 LDH,D Transfer value in DE (START=FFFF, 
LD ЦЕ NEW=RAMTOP). 
RAM-FILL 
MOD42 10 (HL),$02 Enter $02 into every location above 
DEC HL $3FFF. 
CP H 
JR NZ,RAM-FILL 
RAM-READ 
М0048 AND A Reset carry for subtraction. 
SBC HL,DE Carry flag will reset when the 
ADD HL,DE top is reached. 
INC HL Update pointer 
JR NC, RAM-DONE Jump when at the top. 
DEC (HL) Decrement memory location 
JR Z, RAM-DONE If 0, RAM is faulty. Set RAMTOP and 
DEC (HL) decrement memory again. 
JR Z, RAM-READ Loop until it fails. 
RAM-DONE 
MOD55 DEC HL HL points to the last valid memory address. 


Restore the ‘preserved’ systems variables. Meaningless when coming from START. 


EXX Swap to the alternate registers 
LD (PRAMT),BC Restore the system variables. 
LD (RASP),DE 

LD (UDG) HL 

EXX 

INC B Test START/NEW flag, 

JR Z, RAM-SET jump forward if NEW. 


Overwrite the system variables when coming from START and initialize the user-defined 
graphics area. 
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LD (PRAMT),HL Set P RAMTOP to discovered value. 
LD DE,$3EAF Initialize the UDG area. 

LD BC,$00A8 Transfer the character data at 

EX DE,HL $3EAF - $3F57 to the top of RAM. 
LDDR 

EX DE,HL Set the pointers back. 

INC HL Point to the first byte. 

LD (UDG),HL Set UDG to point to transferred data. 
DEC HL Joint just below UDG. 

LD BC,$0040 Set the system variables. 

LD (RASP),BC Set RASP=40, РІР-0. 


RAM-SET 
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Remainder of this routine is common to START and NEW. 


MOD7F LD (RAMTOP),HL 
LD HL,$3C00 
LD (CHARS),HL 


Set up the machine stack. 


LD HL,$6200 
LD (MSTBOT),HL 
DEC HL 

LD (HL),$3E 
DEC HL 

LD SP.HL 

DEC HL 

DEC HL 

LD (ERRSP),HL 
IM 1 

NOP 

LD IY,ERR_NR 
LD HL,$6840 
LD (CHANS),HL 
LD DE,$11AA 
LD BC,$0015 
EX DE,HL 

LDIR 

EX DE,HL 

LD A,$38 

LD (ATTRP),A 
LD (ATTRT),A 
LD (BORDCR),A 
LD HL,$0523 
LD (REPDEL),HL 
DEC (IY+(-$3A)) 
DEC (IY--(-$36)) 
LD HL,$11C1 
LD DE,STRMS 
LD BC,$000E 
LDIR 

XOR A 

OUT (DECR),A 


SET PR,(IY+OFLAGS) 
CALL CLEAR-PRB 

LD (IY+ODFSZ),02 
CALL CLS 

XOR A 


Set BASIC's RAMTOP to just below the UDG area. 
Initialize system variable CHARS. 


Set MSTBOT, the address of 
location above machine stack. 
Point to machine stack, 
initialize to $3E. 


Step down two locations to 

find the correct value for 

ERRSP. 

TS uses interrupt mode 1. 

Wait. 

Initialize IY to address of ERR_NR. 
Set CHANS to point to 

channels buffer. 

Transfer initial channel data 

to the RAM buffer. 


Set ATTR_P. 
Set ATTR_T. 
Set BORDCR (border color). 


Set REPDEL. 

Set KSTATE (KS A1) to FF. 
Set KS_A2 to FF. 

Move the initial stream data 
from its table in ROM to the 
streams area in RAM. 


1. enable dock bank selection 

2. enable 17mS interrupt 

3. set normal video mode 

4. set attrib to black on white 

Signal ‘printer in use’ and 

clear printer buffer. 

Set size of the lower part of the screen and 
clear the screen. 

Zero A. 
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SET TOKEN, (IY+OFLAGS) 


LD DE,$1117 
CALL PO-MSG 


SET CLHS,(IY+OTVFLAG) 


LD HL,$0E0B 
LD DE,$6000 
LD BC,$001D 
LDIR 

CALL M6000 
LD HL,$65CE 
LD ($65CE),HL 
LD HL,$08E7 
CALL M6815 


Set token mode in FLAGS. 

Address of the banner messages. 

Print banner messages. 

Signal ‘clear the lower part’ in TV_FLAG. 


Transfer the routine that 

moves the function dispatcher 

code from EXROM to RAM. 

Call the transfer routine. 

Initialize the bank stack pointer 

in the function dispatcher. 

Jumps to $08E7 in EXROM. 

Return address is popped into IX and call routine 
to jump to INIT2. 


These instructions are transferred to 6000h in RAM by init at MODED then called. This 
routine transfers the function dispatcher from the EXROM to its initial RAM location. 


LD A,$01 
OUT (HSR),A 
IN A,(DECR) 


SET 7,A 

OUT (DECR),A 
LD HL,$1000 
LD DE,$6200 
LD BC,$0630 
LDIR 

RES 7,A 

OUT (DECR),A 
XOR A 

OUT (HSR),A 
RET 


Main Execution Loop 


Enable the EXROM bank 

in the Horizontal Select Register (HSR). 

Get the value of the display enhancement control 
register. 

Enable EXROM. 

Write to the register. 

Origin in EXROM for the code. 

Transfer the function 

dispatcher code. 


Disable the EXROM. 


Back to home bank. 
Write to the HSR. 


Main loop; controls the editing mode, executing direct commands and generating 


reports. 


MAIN-EXEC 
MOE28 LD (IY+ODFSZ),02 
CALL AUTO-LIST 


MAIN-1 (LED18) 
MOE2F CALL SET-MIN 


MAIN-2 

MOE32 LD A,$00 
CALL CHAN-OPEN 
CALL EDITOR 
CALL LINE-SCAN 
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Set lower part of screen to two lines. 


Initialize ELINE, KCUR, and WORKSP pointers. 


Open channel 'K' before calling EDITOR. 


Call to allow user to build BASIC line. 
Scan the current line for correct syntax. 


BIT 7,(IY+OERRNR) 

JR NZ, MAIN-3 

BIT RETPOS,(IY+OFLAGS2) 
JR 2, MAIN-4 

LD HL,(ELINE) 

CALL REMOVE-FP 

LD (IY+OERRNR),$FF 

JR MAIN-2 


MAIN-3 
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Jump forward if syntax is correct. 


Jump forward if retype possible after 
syntax error is set. 

Point to the start of the line with the error. 
Remove the floating point from this line. 
Reset ERR_NR and jump back to MAIN-2, 
leaving listing unchanged. 


Edit-line has passed syntax and the three types of line that are possible have to be 


distinguished from each other. 


М0Е55  LD HL,(ELINE) 
LD (CH_ADD),HL 
CALL E-LINE-NO 
LD A,B 
ORC 
ЈР NZ,MAIN-ADD 


RST $18 
CP $0D 
JR Z,MAIN-EXEC 


Point to the start of the line. 
Set CH_ADD to the start, too, 
Fetch any line number in to BC. 
Is the line number valid? 


Jump if so and add the new line to the 
existing program. 

Get the first character of the line 

and test if it is only a carriage return. 
Jump back if true. 


Edit-line starts with a direct BASIC command, so interpret it. 


BIT ALOS,(IY+OFLAGS2) 
CALL NZ,CL-ALL 

CALL CLS-LOWER 

LD A,$19 

SUB (IY+OSPOSNLIN) 
LD (SCRCT),A 

SET INTPT,(IY+OFLAGS) 
LD (IY+OERRNR),$FF 
LD (IY+ONSPPC),01 

LD (IY+OERRLN),0O 
CALL LINE-RUN 


MAIN-4 


Clear display unless this flag 
indicates it's not required. 

Clear the lower part. 

Set the appropriate value for the 
scroll counter. 


Signal 'line execution'. 

Ensure ERR NR is correct. 

Handle the first statement in the line. 
Set ERRLN to 0 for report. 

Interpret and execute the line. 


The line has been interpreted and all the actions have been completed, return to MAIN-4 


and report back to user. 


MOE8D HALT 
LD A,(IY--OERRNR) 
CP $FF 
JR Z, SOUND-RASP 
BIT 7,(IY+(OERRLN+1)) 
JR Z, SOUND-RASP 
SET 6,(IY+(OERRLN+1)) 
INC A 


Enable maskable interrupt. 
Get the error number. 

Is it FF? 

An error, let the user know. 
Error, line number high. 
Let the user know. 

Error line HI plus 64. 
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LD (ERRT),A 

LD (IY+OERRNR),$FF 
LD HL,(PPC) 

LD (ERRC),HL 

LD A,(SUBPPC) 

LD (ERRS),A 

LD HL,(ERRLN) 

RES 7,H 

RES 6,H 

LD (NEWPPC),HL 
LD (IY+ONSPPC),01 
LD HL,$0E8D 
PUSH HL 

JP STMT-RET 


SOUND-RASP 
MOEC8 LDA,$07 


MAIN-G 


MOEE3 


MAIN-5 


OUT ($F5),A 
LD A,SFF 
OUT ($F6),A 


Put A in ERRT. 

Clear the error number. 

Put the line number in HL. 

Put the line number in ERRC. 

Get the statement number within the line. 
Put that in the error statement number. 
Line number for ON ERROR 

Make sure new line is less than 10000. 


Put it in the the line to be jumped to. 
Sub-line to jump to. 

Put address of this routine in HL. 
Push HL to the stack. 

END statement. 


Mixer control/IO enable port of AY-3-8910. 
Select the port. 

Set all flags to 1 (IOA output, disable all 
sound and noise channels). 


RES ECHREO,(IY--OTVFLAG) Echo off. 


RES KEYHIT,(IY+OFLAGS) 
BIT PRLEFT,(IY+OFLAGS2) 


CALL NZ,COPY-BUFF 
LD A,(ERR_NR) 
INCA 


PUSH AF 

LD HL,$0000 

LD (IY+OFLAGX),H 

LD (IY+(OXPTR+1)),H 

LD (DEFADD),HL 

LD HL,$0001 

LD (CH. O,HL 

CALL SET-MIN 

RES INPLN,(IY+OFLAGX) 
CALL CLS-LOWER 

SET CLHS,(IY- OTVFLAG) 
POP AF 

LD B,A 

CP $0A 

JR C, MAIN-5 

ADD A,$07 


MOFOC CALL OUT-CODE 
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LD A,$20 
RST $10 


Signal 'ready for new key'. 
Empty printer buffer if it has been used. 


Fetch the error number and 
increment it. 


Save the error number. 

Set these system variables to $0000. 
FLAGX 

PTR hi 

DEFADD 

Ensure stream $00 points to channel K. 


Clear all work areas and calculator stack. 
Signal 'editing mode.' 

Clear the lower screen. 

Signal 'lower screen will need to be cleared.' 
Fetch the report value. 

Make a copy in B. 

Jump forward with report numbers 

O to 9. 

Add the ASCII letter offset value. 


Print the report code, 
followed by a space. 


MAIN-6 
MOF43 


MAIN-7 
MOF46 


MAIN-8 
MOF54 


MAIN-9 


MOF56 


Report Message Table 


LD A,B 

LD DE,$0F65 
CALL PO-MSG 
XOR A 

LD DE,$1115 
CALL PO-MSG 
LD BC,(PPC) 
CALL OUT-NUM-1 
LD A,$3A 

RST $10 

LD C,(IY+OSUBPPC) 
LD B,$00 

CALL OUT-NUM-1 
CALL CLEAR-SP 
LD АДЕКК NR) 
INCA 

JR Z, MAIN-9 


CP $09 

JR Z,MAIN-6 
CP $15 

JR NZ,MAIN-7 


INC (IY+OSUBPPC) 


LD BC,$0003 
LD DE,OSPCC 
LD HL,NSPPC 
BIT 7,(HL) 

JR 2, MAIN-8 
ADD HL,BC 


LDDR 


LD (IY- ONSPPC),$FF 
RES LMODE2,(IY- OFLAGS) 
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Get the report value and use 
it to identify the required report message. 


Print the message and follow with comma 
and space. 


Fetch current line number 
and print it. 
Follow it with a colon (:). 


Get the current statement number and 
put it in BC. 

Print value in BC pair. 

Clear the editing area. 

Get the ERR NR again. 

Increment it. 

If the program completed ok, there's no CONT so 
jump ahead. 

If the program halted with 

STOP or 'BREAK into program', 
CONT will be from next statement. 


Otherwise SUBPPC is unchanged. 


System variables OSPPC and NSPPC set 
with CONT line and statement numbers. 
Values used will those in PPC and SUBPPC 
unless NSPPC indicates the break came 
before a jump. 


NSPPC reset to indicate 'no jump.' 
'K mode’ selected. 


RES ECHREO,(IY--OTVFLAG) Echo off. 


JP MAIN-2 


Jump back but no program listing appear 
until requested. 


Each message has the last character inverted (4 $80). 


ERRMSGS 
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DEFB $80 Initial marker 

DEFB $4F, $CB 0, OK 

DEFM 1, NEXT without FOR 
DEFM 2, Variable not found 
DEFM 3, Subscript wrong 
DEFM 4, Out of memory 
DEFM 5, Out of screen 

DEFM 6, Number too big 
DEFM 7, RETURN without GOSUB 
DEFM 8, End of file 

DEFM 9, STOP statement 
DEFM A, Invalid argument 
DEFM B, Integer out of range 
DEFM C, Nonsense in BASIC 
DEFM D, BREAK - CONT repeats 
DEFM E, Out of DATA 

DEFM F, Invalid file name 
DEFM G, No room for line 
DEFM H, STOP in INPUT 
DEFM |, FOR without NEXT 
DEFM J, Invalid I/O device 
DEFM K, Invalid color 

DEFM L, BREAK into program 
DEFM M, RAMTOP no good 
DEFM N, Statement lost 
DEFM O, Invalid stream 
DEFM Р, ЕМ without DEF 
DEFM О, Parameter error 
DEFM R, Tape loading error 
DEFM S, Missing LROS 


And start-up messages. 


DEFM '' &( '+$80) 
DEFM $7F &" 1982 Sinclair Research Ltd”& $00 & $00 
DEFM $7F &" 1983 Timex Computer Corp” 


REPORT-G (UNKEDIT) 


No room for line. 


M1150 LDA,$10 
LD BC,$0000 
JP MAIN-G 


MAIN-ADD Subroutine 


Add a new BASIC line to the existing BASIC program in the program area. If a line has 
both an old and a new version then the old one is reclaimed. A new line that consists of 
only a line number does not go into the program area. 
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MAIN-ADD 


M1158 


LD (EPPC),BC 

LD HL,(CH_ADD) 
EX DE,HL 

LD HL,$1150 
PUSH HL 

LD HL,(WORKSP) 
SCF 

SBC HL,DE 

PUSH HL 

LD H,B 

LD L,C 

CALL LINE-ADDR 
JR NZ, MAIN-ADD1 
CALL NEXT-ONE 
CALL RECLAIM-2 


MAIN-ADD1 


M1178 


POP BC 

LD A,C 

DEC A 

ORB 

JR Z, MAIN-ADD2 
PUSH BC 

INC BC 

INC BC 

INC BC 

INC BC 

DEC HL 

LD DE,(PROG) 
PUSH DE 
CALL MAKE-ROOM 
POP HL 

LD (PROG), HL 
POP BC 
PUSH BC 

INC DE 

LD HL,(WORKSP) 
DEC HL 

DEC HL 
LDDR 

LD HL,(EPPC) 
EX DE,HL 
POP BC 

LD (HL),B 
DEC HL 

LD (HL),C 
DEC HL 

LD (HL),E 
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Make new line number the ‘current line’. 
Fetch CH_ADD and save the address to 
DE. 

Push address of REPORT-G on to the stack. 
ERRSP will now point to REPORT-G. 

Fetch WORKSP. 

Find the length of the line from the line 
number to the carriage return. 

Save the length. 

Move the line number to the HL pair. 


Is there an existing line with this number? 
Jump if not. 

Find the length of the ‘old’ line 

and reclaim it. 


Fetch the length of the new line 
and jump forward if it is only a line 
number and carriage return. 


Save the length. 

Add four extra locations: 

two for the number and two 

for the length. 

Make HL point to the location before the 
destination. 

Save the current value of PROF to avoid 
corruption when making space for new line. 
Create space for the new line. 

Recall old value of PROG. 

Restore. 

Copy of line length. 


Make DE point to end of location in new 
area and HL to the carriage return 
character of new line in the editing area. 


Copy the line to the program. 
Fetch the line number. 
Destination in HL, number in DE. 
Get new line's length. 

High length byte. 


Low length byte. 


Low line number byte. 
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DEC HL 
LD (HL),D High line number byte. 
MAIN-ADD2 
М11А6 POP AF Drop address of REPORT-G. 
JP MAIN-EXEC 


Initial Channel Information 


There are four channels - 'K', 'S', 'R', & 'P' - for communicating with the 'keyboard', 
‘screen’, 'work space' and 'printer'. Each channel is arranged as: output routine address, 


input routine address and the channel code. 


M11AA DEFB $00, $05 
DEFB $0E, $0C 
DEFB $4B 
DEFB $00, $05 
DEFB $BF, $11 
DEFB $53 
DEFB $E7, $0A 
DEFB $BF, $11 
DEFB $52 
DEFB $00, $05 
DEFB $BF, $11 
DEFB $50 
DEFB $80 


REPORT J (INVI) 


M11BF RST $08 
DEFB 12H 


Initial Stream Data 


PRINT-OUT 
KEY-INPUT 
K (Keyboard) 
PRINT-OUT 
REPORT J 

S (Screen) 
ADD-CHAR 
REPORT J 

R (Workspace) 
PRINT-OUT 
REPORT J 

P (Printer) 
End of table 


Error: Invalid IO device. 


There are 7 built-in streams. 


DEFB $01 $00 
DEFB $06 $00 
DEFB $0B $00 
DEFB $01 $00 
DEFB $01 $00 
DEFB $06 $00 
DEFB $10 $00 


WAIT-KEY Routine 


Stream $FD (-3): Channel ‘K’ 
Stream $FE (-2): Channel '5' 
Stream $FF (-1): Channel ‘R’ 
Stream 0: Channel 'K' 
Stream 1: Channel ‘K’ 
Stream 2: Channel 'S' 
Stream 3: Channel ‘P’ 


Read a character from the current channel, deposit it in A. 


WAIT-KEY (RDCH) 


M11CF BIT CLHS,(IY- OTVFLAG) 
JR NZ, WAIT-KEY1 


Jump if not clearing LHS 
on key press. 


SET ECHREQ,(IY+OTVFLAG) Force echo keyboard input. 
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WAIT-KEY1 
M11D9 CALL INPUT-AD Get a character from the current channel. 
RET C Return with the character 
JR Z, WAIT-KEY1 Back around for the next character. 
REPORT-8 
M11DF RST $08 Error: End of File. 
DEFB $07 


INPUT-AD Subroutine 


Get address of character from the current channel in CURCHL without waiting. Returns C 
if the character is ok. Returns NC, NZ if end of file (for a finite device like a disk drive). 
Returns NC, Z if no character was available. 


INPUT-AD (INCH) 


M11E1 EXX Save the registers. 
PUSH HL 
LD HL,(CURCHL) Get current channel routine address. 
INC HL Point to the input routine. 
INC HL 
JR CALL-SUB Jump forward. 


Main Printing Subroutine 


Called with either an absolute value or a character code in A. Timex extended this routine 
to send the value in the A register to a routine in any expansion bank. CURCBN (current 
channel bank number) is checked to provide support for expansion banks. For HOME 
bank, it's set to 0. The DOCK and EXROM banks are not supported by mechanism. If it 
weren't for a bug, it could be used to INPUT a character through a routine in an 
expansion bank numbered 2 or higher. 


OUT-CODE (PUTDIG) 


Send a decimal digit whose binary value is in A to the current channel. 


M11EA LD E,$30 Make the digit ASCII. 
ADD AE 


PRINT-A-2 (SENDCH) 


Send character in A to the current stream. 


M11ED EXX Save the registers. 
PUSH HL Save HL. 
LD HL,(CURCHL) Get the base address for the current channel. It 
will point to an output address. 
CALL-SUB 
HL points to the output or input address. 
M11F2  EXAF, AF' Save AF. 
LD A, (CRCBN) Get the current channel bank number. 
CP $02 Is the current channel bank number <= 2? 
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JR NC, CKEXPBNK 


Yes, check if an expansion bank is active. 


EX AF, AF' Restore AF. 
LD E,(HL) Load DE with 
INC HL output routine address 
LD D,(HL) for the current channel. 
EX DE,HL Output routine address to HL, CURCHL to 
CALL CALL-JUMP DE. 
POP HL Restore HL. 
EXX Back to the normal regs. 
RET 
CKEXPBNK 
M1205 ЕХАҒАҒ Restore AF. 
LD HL,(CURCHL) Get the current channel pointer. 
LD B,(HL) 
LD C,$88 
LD A,(ARSFLG) Get cart flags. 
BIT BANKCHN,A 
JR М7, BANK-STREAM Jump: output to an expansion bank. 
INC HL 
INC HL 
BANK-STREAM 


Send this data to an expansion bank. 


M1215 LDA,(STRMN) Get current stream number 


LD E,A Put in E to save it. 

LD D,$00 

PUSH DE Save the stream pointer. 

LD DE,$0007 

ADD HL,DE Address of the stream handler in the bank. 
PUSH HL Call address. 

PUSH BC B = bank, C=Horizontal Select. 

LD BC,$0002 Two parameters out. 

PUSH BC 

LD BC,$0000 No parameters in. 

PUSH BC 

CALL CALL BANK 

POP HL Restore the current stream number. 
EXX Restore normal registers. 

RET 


Channel Open Subroutine (SELECT) 


Select a stream, stream number in A. Depending on the stream data, a particular channel 
will be made the current channel. 


CHAN-OPEN (SELECT) 
M1230 ADDAA Double stream number, 
ADD A,$16 add offset into stream table and 
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LD ЦА move address to L. 
LD H,$5C High byte of stream base address. 
LD E,(HL) Get pointer to the stream 
INC HL routine. 
LD D,(HL) 
LD A,D Is entry zero? 
ORE 
JR NZ,SKIP-ERR Jump if stream entry is not zero. 
REPORT-O (ERRO) 
M123D RST $08 Error: Invalid stream. 
DEFB $17 
SKIP-ERR 
M123F СР $80 Jump if stream number is negative. 
JR NC, EXPBK-CHAN 
CHAN-OP-1 
M1243 DEC DE Reduce the stream data. 
LD HL,(CHANS) Get CHANS 
ADD HL,DE Make the required address. 


CHAN-FLAG Subroutine 


Set the appropriate flags for the different channels. 


CHAN-FLAG (SET_HL) 


M1248 LD (CURCHL),HL Make the channel address in HL the current 
channel. 
LD A,$00 Force bank number of current channel 
LD (CRCBN),A to be zero. 
RES RETPOS,(IY- OFLAGS2) Reset ‘retype possible after syntax error.’ 
INC HL Step past the output 
INC HL and the input addresses and 
INC HL make HL point to the 
INC HL channel code. 
LD C,(HL) Get channel type (K,S,P). 
LD HL, KLOOK Find in the table below. 
CALL INDEXER Index into the table, find the offset. 
RET NC Return if not found (not K,S,P). 
LD D,$00 Pass offset to the 
LD E,(HL) DE register pair. 
ADD HL,DE Jump forward to the appropriate 
CALL-JUMP 
M1264 JP (HL) Output routine. 
EXPBK-CHAN 
M1265 LD HL, SYSCON) Get address of system config table. 
SUB $80 Make stream positive. 
LD D,A Save in D. 
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ADD HL,DE 
LD (CURCHL),HL 


LD A,(HL) 

LD (CRCBN),A 

RES RETPOS,(IY+OFLAGS2) 
INC HL 

INC HL 

INC HL 

INC HL 

INC HL 

INC HL 

LD A,(CRCBN) 


PUSH BC 

LD BC,$0000 
PUSH BC 

PUSH BC 

CALL CALL_BANK 
RET 


Add DE to SYSCON address to HL. 

Make the channel address in HL the current 
channel. 

Put bank number for channel in A. 

Set CURCBN. 

Reset ‘retype possible after syntax error.’ 
Step past the output 

and the input addresses and 

make HL point to 

the SELECT routine. 


Get current channel bank number. 
Save in B. 

High byte address of SELECT routine. 
Low byte address of SELECT routine. 
Call address. 


C=Horizontal Select, B=bank. 
No params. 


Channel Code Look-Up Table 


KLOOK 


M1293  DEFM $4B, $06, 
DEFM $53, $12 
DEFM $50, $1B 
DEFB 0 


ChanOffset Address 
"K" $06 M129A 
"S" $12 M12A8 
"P" $1B M12AC 
End of table 


Channel 'K' Flag Subroutine 


CHAN-K (KANALK) 

M129A SET LHS,(IY+OTVFLAG) 
RES KEYHIT,(IY+OFLAGS) 
SET RETPOS,(IY+OFLAGS2) 
JR CHAN-S-1 
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Print to lower half of screen. 
Signal ‘ready for a key’. 

Retype possible after syntax error. 
Jump forward. 


HOME ROM 


Channel 'S' Flag Subroutine 


CHAN-S (KANALS) 
M12A8 RES LHS,(IY+OTVFLAG) Print to the top half of the screen. 


CHAN-S-1 (KANS1) 


M12AC RES PR,(IY+OFLAGS) Reset printer flag, print to TV. 
JP TEMPS jump to set the attributes. 


Channel 'P' Flag Subroutine 


CHAN-P (KANALP) 
M12B3 SET PR,(IY+OFLAGS) Force print to printer. 
RET 


MAKE-ROOM Subroutine 


Called on to open up an area in RAM. HL points to the location after the place where 
room is required and BC holds the amount of space needed. When only a single space 
only is required, subroutine is entered at ONE-SPACE. 


ONE-SPACE (INSI) 


M12B8 LD BC,$0001 Insert 1 byte at (HL). 
MAKE-ROOM (INSERT) 
M12BB PUSH HL Save insertion address. 
CALL TES-ROOM Check for sufficient RAM; error 4 if not. 
POP HL Restore insertion address. 
CALL POINTERS Adjust various pointers in the system variables. 


DE now points to the old STKEND (just before the free RAM) and HL points to the fence 
value (will be discarded). BC will contain the length of the memory block to be moved. 
This will usually be different from the entry value. 


LD HL,(STKEND) Get STKEND (start of spare space). 
EX DE,HL HL = entry value, DE = HL + BC. 
LDDR Move the bytes up to open buffer. 
RET 


POINTERS Subroutine 


Whenever memory space has to be created or reclaimed, the system variables that 
address locations beyond the position of the change have to be amended as required. 
On entry, BC holds the number of bytes involved and HL addresses the location before 
the position. 


POINTERS (REMGSZ) 
M12CA PUSH AF Save registers. 
PUSH HL 


This section of code adjusts the pointer to the AROS buffer stored in ARSBUF, if needed. 
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RESET-CART-POINTERS 


M12CC LD HL,ARSBUF Get AROS buffer pointer. 


LD E,(HL) Copy to DE, DE now points to the 
INC HL AROS buffer. 

LD D,(HL) 

EX (SP),HL Save ARSBUF and get old HL. 
AND A Set carry if HL<DE. 

SBC HL,DE If address іп HL is lower than the 
ADD HL,DE AROS buffer, do CP HL,DE. 

EX (SP),HL Get ARSBUF back and save HL. 


JR NC, NOT-AROS 


Jump if the address in HL is after AROS. 


EX DE,HL DE now has ARSBUF and HL has the address of 
the AROS buffer. 

ADD HL,BC Adjust the address of the AROS buffer by 
BC bytes. 

EX DE,HL HL now has ARSBUF and DE has the new 

LD (HL),D address of the AROS buffer. 

DEC HL Store the value in ARSBUF. 

LD (HL),E 

NOT-AROS 


Spectrum POINTERS routine picks up here; this section adjusts the system variables VARS 
through STKEND. 


М12Е0 LD HL,VARS Get the address for VARS. 


LD A,$0E Number of variables to update. 
NEXT-POINTER 
M12E5 СР $09 Test NXTLIN against ARSFLG 
JR Z, 8-OR-9 because it may be in the AROS buffer. 
CP $08 DATADD: data statement address, 
JR NZ, PTR-NEXT same situation as NXTLIN. 
8-OR-9 
Test the AROS present flag. If an AROS is present, skip the pointer update. 
M12ED PUSH HL Briefly save HL. 
LD HL,ARSFLG Load ARSFLG 
LD L,(HL) Get the AROS flag and test 
BIT AROS,L to see if an AROS is present. 
POP HL Restore HL. 
JR Z, PTR-NEXT Jump if AROS not present. 
INC HL Point to the high byte of the pointer, 
JR PTR-DONE skip the addition routine. 
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Update a pointer by determining if it points above the fence address in HL. If it does, add 


BC to the pointer and then stuff it back 


M12FA LD E,(HL) 
INC HL 
LD D,(HL) 
EX (SP),HL 
AND A 
SBC HL,DE 
ADD HL,DE 
EX (SP),HL 
JR NC, PTR-DONE 


into the system variables. 
Get address pointer at (HL) into DE. 


Exchange the system variable with the 
address of the position. 

Set carry flag. 

Jump if HL >= (POINTER). 

Pointer doesn't need updating since we 
are moving stuff above where it points. 


Adjust the pointer by adding BC to it, then save it back to the system variables. 


PUSH DE 
EX DE,HL 
ADD HL,BC 
EX DE,HL 
LD (HL),D 
DEC HL 

LD (HL),E 
INC HL 
POP DE 


PTR-DONE 


Save the old value. 
Add the value in BC to old value. 


Save new value to the system value, 


high byte first. 


Point again to the high byte. 
Get the old value. 


Now look at the next pointer and decrement the counter in A. That tells us how many 
pointers are left to update. If there are more, loop back again. 


M130E INC HL 
DECA 
JR NZ,NEXT-POINTER 


Find the size of the block to be moved. 


EX DE,HL 
POP DE 
POP AF 
AND A 
SBC HL,DE 
LD B,H 

LD C,L 


INC BC 
ADD HL,DE 
EX DE,HL 
RET 


Pointer to next system variable 
and jump back until all 14 have been 
updated. 


Put old value of STKEND in HL 
and restore other registers. 


Find the number of bytes between the 

fence and where old STKEND pointed and 
copy it to BC. This sets the size of the memory 
block to be moved. 

Add 1 for the inclusive byte. 

Restore old value of STKEND and pass to 

DE before returning. 
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Collect a Line Number Subroutine 


On entry, HL points to the location under consideration. If the location holds a value that 
constitutes a suitable high byte for a line number, then the line number is returned in DE. 
However if this is not, the location addressed by DE is tried instead. If that is also 
unsuccessful, line number zero is returned. 


LINE-ZERO (DUMMYLINE) 


M131E DEFW $0000 Line number zero. 
LINE-NO-A 
M1320 EX DE,HL Point to the previous line. 
LD DE,LINE-ZERO Allow an exit by pointing to line zero. 


LINE-NO (GET_LN) 

Get the line number into DE from (HL). On entry, HL points to the program line number; 
DE points to the previous program line number. On exit, HL points to the low byte of the 
line number, DE contains the line number. 


M1324 LD A,(HL) Get the high byte of the line number. 
AND $СО Jump if not a line number. 
JR NZ, LINE-NO-A 
LD D,(HL) Load the line number into DE. 
INC HL 
LD E,(HL) 
RET 


Reserve Subroutine 


On entry, stack holds the WORKSP pointer and value for BC. On exit, DE points to the 
first byte of of the reserved area. Makes room between WORKSP and the calculator stack. 


RESERVE (LCU2) 
M132D LD HL,(STKBOT) Get STKBOT and decrement it to 
DEC HL point to address just below calc stack. 
CALL MAKE-ROOM Insert BC items at (HL), updating system 
variables. 
INC HL Point to the first news space 
INC HL and then the second. 
POP BC Get saved value for WORKSP and restore 
LD (WORKSP),BC it. 
POP BC Restore BC, the number of items to insert. 
EX DE,HL Switch pointers. 
INC HL HL = 2 bytes into the moved memory block. DE = 
the first byte of the new block. 
RET 
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Set Minimum Workspace Subroutine 


This subroutine resets the editing area and the areas after it to their minimum sizes. 
Clears those areas. 


SET-MIN 

M133F LD HL,(ELINE) Get ELINE. 
LD (HL),$0D Make the editing area hold only 
LD (KCUR),HL ‘carriage return’. 
INC HL Put sentinel byte in ELINE buffer. 
LD (HL),$80 
INC HL Initialize the workspace pointer 


LD (WORKSP),HL 
SET-WORK (X_CALC) 


Entering here 'clears' the work space and the calculator stack. 


M134E LD HL,(WORKSP) Fetch WORKSP 
LD (STKBOT),HL Clear work space. 
SET-STK (RESET) 


Reset the floating point stack and floating point memory pointers. EXIT with STKBOT in 
HL. 


M1354 LD HL,(STKBOT) Get STKBOT. 
LD (STKEND),HL Clear the stack. 


Make MEM address the calculator memory area. 


M1354 PUSH HL Save STKBOT. 
LD HL,MEMBOT Base of memory area. 
LD (MEM),HL Reset MEM memory pointer. 
POP HL Restore STKBOT 
RET 


Reclaim the Edit-Line Subroutine (X_T_HL) 


REC-EDIT (X_T_HL) 
M1363 LD DE,(ELINE) Get ELINE. 
JP RECLAIM-1 Reclaim the memory. 


Indexer Subroutine 


Searches for an item in С starting at (HL). Terminates when item found or when О found. 
On exit HL points one past the item if found or to the О byte if O was found. CF=0 if zero 
found, else CF=1 if item in C was found. 


INDEXER-1 
M136A INC HL Move on to consider next pair of entries. 
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INDEXER (SEARCH) 


M136B LDA,(HL) Fetch first pair of entries, 
ANDA but return if it is zero (the end marker). 
RET Z 
CP.C Compare with the supplied code. 
INC HL Point to next entry 
JR NZ, INDEXER-1 Did not find code, go back around. 
SCF Found the byte, set C. 
RET 


Search Expansion Bank System Configuration 


Search system configuration table for expansion bank channel. This code is invoked in 
two other routines that are not used. 


SRCHSC 
M1374 LD HL,(SYSCON) Get SYSCON. 
LD DE,$000C Step past the AROS and LROS 
ADD HL,DE entries. 
SR-CH-LOOP 
M137B  LDA,(HL) Get SYSCON table item. 
CP $80 End of table? 
JR Z,SR-CH-2 
INC HL Skip past next two bytes. 
INC HL 
CP $01 Bank not in use, so check. 
JR NZ, SR-CH-1 
LD A,(HL) Check for bank signature, 
CPC If found, exit routine. 
JR Z, SR-CH-OUT 
SR-CH-1 
M138A PUSH HL Save pointer. 
EX DE,HL 
LD DE,$0018 Skip to next SYSCON table 
ADD HL,DE entry+2. 
EX DE,HL DE points to new entry. 
POP HL Get old pointer. 
PUSH DE Save new pointer. 
LD DE,$0016 Make old pointer point 
ADD HL,DE to new SYSCON entry. 
POP DE Restore DE. 
JR SR-CH-LOOP Keep searching. 
SR-CH-2 
SYSCON DOCK. 
M139A ANDA Clear carry. 
RET Exit. 


78 


HOME ROM 


SR-CH-OUT 
SYSCON XBANK. 


M139C DEC HL 
SCF Set the carry. 
RET 


CLOSE # Command Routine 


Allows the user to CLOSE streams. Streams О to 3 are the 'initial' streams: data is 
restored and these streams cannot be CLOSEd. 


CLOSE 

M139F CALL STR-DATA Get the stream at the top of the calculator 
LD A,B stack. 
ORC Return if the stream routine 
RET Z address is zero (invalid stream). 


CALL CLOSE-2 
RESTORE-STREAM (RSTSTR) 


M13A8 LD BC,$0000 Prepare to make stream data zero 
LD DE,$A3E2 Setup to identify use of streams 0 to 3. 
EX DE,HL 
ADD HL,DE Carry flag set for stream 4 to 15. 
JR C,CLOSE-1 Jump forward for streams 4 to 15. 
LD BC,$11CF Address of RD_CH. 
ADD HL,BC Find the correct entry in the ‘initial stream 
LD C,(HL) data' table and get it for streams 0 to 3. 
INC HL 
LD B,(HL) 

CLOSE-1 

M13B9 EX DE,HL Enter the data: either zeros or the initial 
LD (HL),C values. 
INC HL 
LD (HL),B 
RET 


CLOSE-2 Subroutine 


Close a K, S or P channel. HL is stream address pointer, BC is the address of the stream 
routine. 


CLOSE-2 (CLCHAN) 


M13BE PUSH HL Save stream address pointer. 
LD A,B Jump if the stream is negative. 
CP $80 
JR NC,SYSCON-CK 
LD HL,(CHANS) Get the address of the CHANS area 
ADD HL,BC and find the channel data for the 
INC HL stream being closed. Skip past subroutine 
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INC HL 

INC HL 

LD C,(HL) 

EX DE,HL 

LD HL,CSTRTA 
CALL INDEXER 


JP (HL) 


SYSCON-CK 


System configuration check for close routine. 


M13D8 SUB $80 


80 


LD BA 
LD HL,(SYSCON) 
ADD HL,BC 


PUSH BC 

LD BC,$0002 
PUSH BC 

LD BC,$0000 
PUSH BC 

CALL CALL_BANK 
POP HL 

RET 


addresses and pick up code fro the 
channel. 

Get the stream type: "K","S"or "P" 
Save the pointer in HL. 

Point to the close stream table. 
Search for the stream type. 

Get the offset and add it to 

HL to give the address of the 

close stream routine. 

Close the stream. 


Normalize the number. 


Is it zero? 

Yes, return. 

End marker? 

Yes, return. 

Skip past bank number. 
Get channel specifier. 

Skip subroutine addresses. 


Get SELECT low byte. 


Get SELECT high byte. 


Return address. 


B= bank, C=Horizontal Select. 
PRM_OUT 


No PRM IN. 


Call expansion bank SELECT routine. 
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Close Stream Look-Up Table 


CSTRTA 


M1407 


DEFB $4B, $05 
DEFB $53, $03 
DEFB $50, $01 


CLOSE-STR (CLOSTR) 


Close stream. 


M140D POP HL 


RET 


Stream Data Subroutine 


"K" 
"ç" 
"p" 


Get the channel information pointer and 
return. 


Returns the stream data for a given stream in the BC register pair. 


STR-DATA 


M140F 


CALL FIND-INT1 


LD (STRMN),A 
CP $10 
JR C, STR-DATA1 


REPORT-O 


M1419 


RST $08 
DEFB $17 


STR-DATA1 


Continue with valid stream numbers. 


M141B 


OPEN # Command Routine 


ADD A,$03 
RLCA 

LD HL,STRMS 
LD СА 

LD B,$00 
ADD HL,BC 
LD C,(HL) 
INC HL 

LD B,(HL) 
DEC HL 
RET 


Convert the top of the calculator stack 
to a byte in A. If the number is more 
than 255, we won't return here. 

Update current stream number. 

Jump if stream number is valid (less than 


$10). 


Error: Invalid stream. 


Adjust range to $3 to $12; 
then to $6 to $24. 

Point to entry in streams table. 
Move stream code to BC. 


Index into the data area. 
Get the address for the 
stream routine to BC. 


Make pointer address first of data bytes 
before returning. 


OPEN streams. Channel code must be supplied and it must be 'K', 'K', 'S', 's', 'P', or 'p'. 
No attempt is made to give streams 0 to 3 their initial data. 


15-СОММА 
M142A СР", 


Jump if current character is a comma. 
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JR 2, GET-NEXT-ARG 


CALL CHECK-END 
JR OPEN 


GET-NEXT-ARG 


M1433 


OPEN 
M143E 


CALL SYNTAX-Z 
JR NZ, OPEN 
CALL SKIPIT 

CALL CHECK-END 


RST $28 

DEFB $01 
DEFB $38 
CALL STR-DATA 
LD A,B 

ORC 

JR Z, OPEN-1 
EX DEHL 

LD HL,(CHANS) 
ADD HL,BC 
INC HL 

INC HL 

INC HL 

LD A,(HL) 

EX DE,HL 

CP $4B 

JR 2, OPEN-1 
CP $53 

JR Z, OPEN-1 
CP $50 

JR NZ, REPORT-O 


OPEN-1 (OPEN-IT) 


M145E 


CALL OPEN-2 
LD (HL),E 

INC HL 

LD (HL),D 
RET 


OPEN-2 Subroutine 


Will return if interpreting, else 
will exit via ENDTEM. 


Jump if interpreting 


skip to the end of a statement. 


Use the calculator to 

exchange the stream number and 
the channel code. 

Fetch the data for the stream. 
Jump forward if both bytes are zero 
(the stream was in a closed state). 


Save DE. 

Fetch CHANS, base address of the 
channel information and find the code 

of the channel associated with the stream 
to be OPENed. 


Restore DE. 

The code fetched from channel 
information area must be 'K', 'S' or 'P'. 
Is it 'S'? 


Is it 'P'? 
Nope, report error. 


Get the appropriate data in DE. 
Enter stream data in to the two bytes 
in the stream information area. 


Get stream data bytes for the channel that is associated with the stream being OPENed. 


OPEN-2 (OPCHAN) 


M1465 
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PUSH HL 

CALL STK-FETCH 
DEC BC 

LD A,B 

ORC 


Save HL. 
Get a parameters of the channel code. 


Jump if the expression is null. 


JR 2, OPEN-3 
REPORT-J 
M146E  RST $08 
DEFB $12 
REPORT-F 
M1470 RST $08 
DEFB $0E 
OPEN-3 
M1472 INC BC 
PUSH BC 
LD A,(DE) 
AND $DF 
LD СА 
LD HL,OPTAB 


CALL INDEXER 
JR NC, INVALID-IO 


LD C,(HL) 
LD B,$00 
ADD HL,BC 
POP BC 

JP (HL) 


INVALID-IO 
M1486 JR REPORT-J 


CALL-EXPBANK 
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Error: Invalid IO device. 


Error: Invalid save name. 
No name or name more than 10 chars. 


Restore channel designator string length. 
Save it. 

Get the channel designator character, 
force to upper case. 

Move code to C. 

Base addr of OPEN stream look-up table. 
Index into table and find required offset. 


Not in the table, jump to INVALID IO DEVICE. 


Pass offset to BC 

register pair. 

Make HL point to start of the routine. 
Restore the string length. 

Jump to the open routine. 


Would have allowed the execution of expansion bank code to OPEN a stream to an 


expansion bank channel. 


M1488 CALL SRCHSC 


JR NC, REPORT-J 


POP BC 
DEC BC 
LD A,B 
ORC 


JR NZ, REPORT-J 


PUSH DE 
EX DE,HL 
CALL PASSEM 
EX DE,HL 
LD B,(HL) 
LD C,$88 
INC HL 
INC HL 
LD E,(HL) 
INC HL 
LD D,(HL) 


Get BC off the stack. 

Decrease the length of the expression 
and report an error if it was not 

a single character. 


Get bank number. 
All chunks but 0 assigned to new bank. 
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LD H,D 
LD LE 
LD A,(STRMN) 


LD HL,(STKEND) 
LD C,(HL) 

DEC HL 

LD (STKEND),HL 
LD B,$00 

INC BC 

INC BC 

PUSH BC 

LD BC,$0000 
PUSH BC 


CALL CALL_BANK 


POP DE 
LD A,D 
ADD А,580 
LD D,A 
POP HL 
RET 


Open Stream Look-Up Table 


OPTAB 

M14C7 DEFB $4B, $06 
DEFB $53, $08 
DEFB $50, $0A 
DEFB $00 


OPEN-K Subroutine 


“K”, offset +$06 
“5” offset +$08 
“Р”, offset +$0A 
End marker 


OPEN-K 
M14CE LDE,1 
JR OPEN-END 


OPEN-S Subroutine 


Data bytes are 01 and 00. 


OPEN-S 
M14D2 LDE,6 
JR OPEN-END 
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Data bytes are 06 and 00. 


OPEN-P Subroutine 


OPEN-P 


M14D6 LD E,10H 


OPEN-END 
M14D8 DEC BC 


LD A,B 

ORC 

JP NZ, REPORT-F 
LD DA 

POP HL 

RET 
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Data byte are 10 and 00. 


Decrease length of expression 
and report an error if it was not 
a single character. 


Otherwise, clear D, 
fetch HL and return. 


LIST & LLIST Command Routines 


These produce listings of the current BASIC program. Each line has its line number 
evaluated, tokens expanded and appropriate cursors positioned. AUTO-LIST is used by 
both the MAIN EXECUTION routine and the EDITOR to produce a single page of the 


listing. 


AUTO-LIST (TSLIST) 


M14E1 


LD (LISTSP),SP 

LD (IY- OTVFLAG),$10 
CALL CL-ALL 

SET LHS,(IY+OTVFLAG) 
LD B,(IY+ODFSZ) 

CALL CL-LINE 

RES LHS,(IY+OTVFLAG) 
SET ALOS,(IY+OFLAGS2) 
LD HL,(EPPC) 

LD DE,(STOP) 

AND A 

SBC HL,DE 

ADD HL,DE 

JR C, AUTO-L-2 

PUSH DE 

CALL LINE-ADDR 

LD DE,$02CO 

EX DEHL 

SBC HL,DE 

EX (SP),HL 

CALL LINE-ADDR 

POP BC 


AUTO-L-1 
M151A PUSH BC 


CALL NEXT-ONE 


POP BC 


Save the stack pointer for the listing. 
Signal ‘automatic listing’ in main screen. 
Clear the upper screen. 

Set printing to lower half of screen. 

Get lower screen size. 

Clear the lower screen for B lines. 
Release writing to the lower screen 

Set auto listing on screen. 

Get the current listing line number. 

Get the line listed at top of screen. 


Jump if top line is greater than 
the current listing line. 

Save the top line. 

Find the current line and 
produce an address roughly 

a ‘screen before it’ 

(negated). 

Save result on the machine stack. 
Top line goes in HL. 

Result goes in BC. 


Save result. 

Find address of the start of the line after the 
present line (in DE). 

Save that. 
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ADD HL,BC 

JR С, AUTO-L-3 
EX DEHL 

LD D,(HL) 

INC HL 

LD E,(HL) 

DEC HL 

LD (STOP),DE 
JR AUTO-L-1 


AUTO-L-2 
M152D LD (STOP),HL 


AUTO-L-3 

M1530 LD HL,(STOP) 
CALL LINE-ADDR 
JR 2, AUTO-L-4 
EX DE,HL 


AUTO-L-4 

M1539 САШ LIST-ALL 
RES TVLIST,(IY+OTVFLAG) 
RET 


LLIST Entry Point 


Add and jump 

forward if finished. 

Move the next line’s address to HL 
and get its number. 


Update STOP and test with 


new line. 


When EPPC is less than STOP. 


Get the top line’s number and 
its address. 

If the line cannot be found, 
use DE instead. 


Make the listing. 
Return here unless scrolling was 
needed to show current line. 


Open the printer channel, then list. 


LLIST (K_LLST) 
M1541 LDA,$03 
JR LIST-1 


LIST Entry Point 


Use stream $03. 


Open the main screen channel, then list. 


LIST (K_LIST) 


M1545 LDA,$02 
LIST-1 
M1547 LD (IY+OTVFLAG),00 


CALL SYNTAX-Z 

CALL NZ,CHAN-OPEN 
RST $18 

CALL STR-ALTER 

JRC, LIST-4 

RST $18 

СР" 
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Use stream $02. 


Printing to upper half of screen, not outputting 
line for edit or number for string, no keyboard 
echo, no automatic listing, do not clear lower half 
screen when key pressed. 

Select stream 2 if interpreting. 


Get current character. 

Update the current stream for "bank" devices. 
Jump if not valid instruction. 

Get current character. 

Is it a semi-colon? 


LIST-2 
M1560 


LIST-3 
M1566 


LIST-4 
M156B 


LIST-5 
M156E 


ЈК Z, LIST-2 
СР", 
JR NZ, LIST-3 


RST $20 


CALL EXPT-1NUM 
JR LIST-5 


CALL USE-ZERO 
JR LIST-5 


CALL FETCH-NUM 


CALL CHECK-END 


CALL FIND-INT2 
LD A,B 

AND $3F 

LD H,A 

LD L,C 

LD (EPPC), HL 
CALL LINE-ADDR 


LIST-ALL 
M157F LD E,$01 
LIST-ALL-1 
M1581 CALL OUT-LINE 
RST $10 
BIT TVLIST,(IY+OTVFLAG) 
JR Z, LIST-ALL-1 
LD A,(DFSZ) 


SUB (IY+OSPOSNLIN) 
JR NZ, LIST-ALL-1 
ХОКЕ 

RET Z 

PUSH HL 

PUSH DE 

LD HL,STOP 
CALL LN-FETCH 
POP DE 

POP HL 

JR LIST-ALL-1 
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Jump if it is. 
15 it a comma? 
Jump if not. 


A numeric expression must follow the comma. 
Get it. 
Get the first line to be listed. 


Otherwise, use a zero and 
jump forward. 


Get any line or zero. 


If checking the syntax of edit line move on next 
statement. 

Put the first line number to be listed in BC. 
Force the number to be a valid 

line number. 

load the line number into HL. 


Set EPPC (current line number) in 
the listing and find the first line after it. 


Flag 'before the current line'. 


Print the entire line. 

And a carriage return. 

Jump back unless dealing with 
and automatic listing. 

Also jump back if there is still 
space on the main screen that 
can be used. 

Return here if the screen is full and 
the current line has been printed. 
If the current line is missing from 
the listing, then STOP has to be 
updated and another line printed 
(using scrolling). 
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Print A Whole Basic Line Subroutine 


HL register pair points to the start of the line, the location holding the high byte of the 
line number. Line number is tested to determine whether it comes before the ‘current’ 


line, is the ‘current’ line or comes after and then printed. 


OUT-LINE (PUT SR) 
M15A1 LD BC,(EPPC) 
CALL CP_LINES 
LD D,$3E 
JR Z,OUT-LINE1 


LPO 
М15АС LD DE,$0000 
RLE 


OUT-LINE1 
M15B1 LD (IY+OBREG),E 
LD A,(HL) 
CP $40 
POP BC 
RET NC 
PUSH BC 
CALL OUT-NUM-2 
INC HL 
INC HL 
INC HL 
RES SPC,(IY+OFLAGS) 
LD A,D 
AND A 
JR 2, OUT-LINE3 
RST $10 


OUT-LINE2 (PUT) 
М15С9 SET SPC,(IY+OFLAGS) 


OUT-LINE3 

M15CD PUSH DE 
EX DE,HL 
RES L_STR,(IY+OFLAGS2) 
LD HL,FLAGS 


RES LMODE1,(HL) 

ВІТ INPLN,(IY+OFLAGX) 
JR 2, OUT-LINE4 

SET LMODE!1 (HL) 
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Get the 'current line' number 
and compare it. 

Pre-load D with the current line 
cursor. 


Load D with zero and set E to hold 


1 if the line is before the current line and 0 if after 


it. 


Save line marker. 

Get the high byte of the line 
number and make a full return if the 
listing is finished. 


Line number can be printed with 
leading spaces. Move pointer to 
the address of first command code 
in the line. 

Signal ‘leading space allowed’. 
Get current cursor code and 

jump forward unless it the cursor 
should be printed. 

Print the cursor. 


Set ‘no leading space’. 


Save the registers. 
Move pointer to DE. 
Signal ‘not in quotes’. 


Signal ‘print in K-mode’. 
Jump forward unless in 
INPUT mode. 

Signal ‘print in L-mode'. 


OUT-LINE4 
Loop to print all the codes in the rest of the BASIC line, jumping over floating-point 
numbers as necessary. 


M15E0 


OUT-LINES 


LD HL,(X_PTR) 
AND A 

SUB HL,DE 

SBC HL,DE 

ЈК NZ, OUT-LINE5 
LD A,$3F 

CALL OUT-FLASH 


M15ED CALL OUT-CURS 


EX DE,HL 
LD A,(HL) 
CALL NUMBER 


INC HL 

CP $0D 

JR 2, OUT-LINEG 
EX DEHL 

CALL OUT-CHAR 
JR OUT-LINE4 


OUT-LINE6 


M1600 


NUMBER Subroutine 


POP DE 
RET 
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Get the syntax error point and jump 
forward unless it is time to print the 
error marker. 


Print the error marker, 
a flashing ‘?’. 


Consider whether to point the cursor. 
Move pointer to HL. 

Get each character in turn. 

If the character is a ‘number marker’, then skip 
over the hidden floating-point char. 
Update pointer for next pass. 

Is this a carriage return? 

Jump if it is. 

Switch the pointer to DE. 

Print the character. 

Make another pass through the loop. 


Restore DE and 
return. 


If the A register holds the number marker, then HL is advanced past the floating-point 


form. 


NUMBER 


M1602 


CP $0E 
RET NZ 
INC HL 
INC HL 
INC HL 
INC HL 
INC HL 
INC HL 
LD A,(HL) 
RET 


Is the character a ‘number marker’? 
Return if not. 

Advance pointer six times 

to past the number marker 

and characters holding 

the floating point number. 


Get the current code and 
return. 
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Print A Flashing Character Subroutine 


Print the cursor used by the error and mode cursors. 


OUT-FLASH (FLASHA) 


M160D EXX Save current register. 
LD HL,(ATTRT) Save ATTR and MASKT 
PUSH HL to the machine stack. 
RES 7,H Set FLASH to active. 
SET 7,L 
LD (ATTRT),HL Use the modified values. 
LD HL,PFLAG Save PFLAG to machine stack. 
LD D,(HL) 
PUSH DE 
LD (HL),$00 Insure INVERSE 0, OVER О and not 
PAPER 9 nor INK 9. 
CALL PRINT-OUT Print the character. 
POP HL Restore PFLAG. 
LD (IY+OPFLAG),H 
POP HL Restore ATTR-T and MASK-T. 
LD (ATTRT),HL 
EXX 
RET 


Print The Cursor Subroutine 


Return if it is not the correct place to print the cursor. If it is, then either 'C', 'E', 'G', 'K' or 
'L' will be printed. 


OUT-CURS (PR CUR) 


M162D LD HL,(KCUR) Get the address of the cursor, 
ANDA return if this is not the correct place 
SBC HL,DE to print a cursor. 
RET NZ 
LD A,(MODE) Get current value of MODE 
RLC A and double it. 
JR Z, OUT-C-1 Jump forward unless dealing with 
ADD A,$43 Extended mode or Graphics. 
JR OUT-C-2 
OUT-C-1 
M163F LD HL,FLAGS Put FLAGS in HL. 
RES LMODE2,(HL) Signal 'K-mode'. 
LD A,$4B Character is 'К'. 
BIT LMODE1,(HL) Jump forward to print K. 
JR Z, OUT-C-2 
SET LMODE2,(HL) Signal 'L-mode'. 
INCA Set cursor to L. 
ВІТ CAPS L,(IY--OFLAGS2) Jump forward if not in 'C-mode'. 
JR Z, OUT-C-2 
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LD A,$43 Set cursor to C. 
OUT-C-2 
M1655 PUSH DE Save DE. 
CALL OUT-FLASH While the cursor is printed. 
POP DE 
RET 


LN-FETCH Subroutine 


Returns the line number of the line that follows the line pointed to in HL. 


LD-FETCH (NEXT_L) 
M165B LD E,(HL) 


Get the number of the line held by 


INC HL the system variable (STOP or EPPC) 
LD D,(HL) that HL points to. 

PUSH HL Save the pointer. 

EX DE,HL Move line number to be found to HL. 
INC HL Look for the next line number. 


CALL LINE-ADDR Find the address of line number. 
CALL LINE-NO Put the line number into DE. 
POP HL Restore the program line number. 


LN-STORE (DE_HL) 

This entry point is used by the editor. On entry, HL points to the line number location, DE 
contains the line number. On exit, HL points to the low byte of the program line number, 
DE contains the line number. 


M1668 BIT INPLN,(IY+OFLAGX) Return if ‘INPUT mode’; 


RET NZ otherwise proceed to 
LD (HL),D store the line number in 
DEC HL its location. 

LD (HL),E 

RET 


Printing Characters In A Basic Line Subroutine 


All of the character/token codes in a BASIC line are printed by repeatedly calling this 
subroutine. The entry point OUT-SP-NO is used when printing line numbers which may 
require leading spaces. 


OUT-SP-2 

M1671 LDA,E A holds $20 (space) or $FF (no space). 
AND А Test and return if there is not to be a 
RET M space. 
JR OUT-CHAR 

OUT-SP-NO 

M1676 XORA Clear A. 
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OUT-SP-1 


HL register pair holds the line number and the BC register the value for repeated 
subtraction. (BC holds -1000, -100 or -10.) 


M1677 ADD HL,BC 
INCA 
JR C, OUT-SP-1 


JR Z, OUT-SP-2 
JP OUT-CODE 


OUT-CHAR 

M1683 RES TOKEN,(IY+OFLAGS) 
BIT LMODE1,(IY+OFLAGS) 
JR 2, OUT-CHAR-1 
SET TOKEN, (IY+OFLAGS) 


OUT-CHAR-1 
M1691 CALL NUMERIC 
JR NC, OUT-CH-3 
CP $0C 
JR Z, OUT-CH-2 
CP $21 
JR C, OUT-CH-3 
RES LMODE!1,(IY-- OFLAGS) 
CP $7B 
JR NZ, OUT-CHAR-2 
BIT TOKEN,(IY+OFLAGS) 
JR Z, OUT-CH-3 


OUT-CHAR-2 
M16AC СР $CB 
JR Z, OUT-CH-3 
CP $3A 
JR NZ, OUT-CH-1 
BIT INPLN,(IY+OFLAGX) 
JR NZ, OUT-CH-2 
BIT L_STR,(IYFOFLAGS2) 
JR Z, OUT-CH-3 
JR OUT-CH-2 


OUT-CH-1 

M16C2 CP $22 
JR NZ, OUT-CH-2 
PUSH AF 


LD A,(FLAGS2) 
XOR $04 


92 


Start subtraction. 

Count each attempt. 

Jump back until done. 

Restore last subtraction 

and adjust the counter. 

If no subtractions, jump back and see if a space 
should be printed. 

Otherwise, print digit. 


Token off. 

Is ‘next character is printed in L-mode' set? 
No, jump forward to print the character. 
Yes, turn token on. 


Return with carry reset if this is numeric. 
Is it Delete? 

Yes, print in L-mode. 

Space or lower? 

Print character. 

Signal 'K-mode'. 

Is it ON ERR? 


Is token mode on? 


Is it THEN? 
A colon? 
Is this ‘INPUT mode’? 


Inside of a string? 


Is it a quote (7)? 


Save the character code while changing to quote 
mode. 

Get FLAGS2 and 

flip bit 2. 
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LD (FLAGS2),A Put FLAGS2 back. 
POP AF Restore character code. 
OUT-CH-2 
M16DO SET LMODE1,(IY+OFLAGS) Signal ‘next character is printed in L-mode’. 
OUT-CH-3 
М1604 RST $10 Print the character. 
RET 


LINE-ADDR Subroutine 


Returns the starting address of the line іп HL or the ‘first line after’ and the start of the 
previous line in DE. 


If the line number is being used the zero flag will be set. However if the ‘first line after’ is 
substituted then the zero flag is returned reset. 


LINE-ADDR (FIND_L) 


M16D6 PUSH HL Save the line number. 
LD HL,(PROG) Point to the start of the program, 
LD D,H copy it to DE. 
LD E,L 
LINE-AD-1 
M16DC POP BC Get the line number. 
CALL CP-LINES Compare the line number in BC to (HL). 
RET NC Return if the current line number is greater than or 
equal to the number in BC. 
PUSH BC Save the desired line number. 
CALL NEXT-ONE Get the length of the record. 
EX DE,HL HL now points to the next line, 
DE points to the previous line. 
JR LINE-AD-1 Back around for the next line. 


Compare Line Numbers Subroutine 


Line number in BC is compared with the addressed line number at (HL). Zero flag set if a 
match, carry flag set if BC < (HL). 


CP-LINES (CP_BC) 


М16Е8 LDA,(HL) Compare the first byte of the 
CP B line number to the desired line number. 
RET NZ Return if no match. 
INC HL Get the next byte of the line number. 
LD A,(HL) 
DEC HL Restore the pointer. 
CPC Compare to the low byte of the requested 
RET number. 
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Find Each Statement Subroutine 


Find the statement within a line. On entry, D has the statement number (starting with 1). 
Returns with HL addressing the location before the start of the statement and the zero 
flag set. It can also find a statement, if any, that starts with a given token code (in the E 
register). 


SUBLIN 
M16FO INC HL Not used. 
INC HL 
INC HL 
EACH-STMT (SUBLIN1) 
M16F3 LD (CH ADD),HL Set CH_ADD to the current byte. 
LD C,$00 Set the ‘quotes off’ flag. 
EACH-S-1 
Loop to handle each statement in the BASIC line. 
М16Е8 DECD Decrease D and return if the 
RET Z required statement has been 
RST $20 found. Get next character code and 
CPE jump if it does not match the given token code. 
JR NZ, EACH-S-3 
AND A It's а match. Return with carry and 
RET zero flags reset. 
EACH-S-2 
M1700 INCHL Update the pointer and fetch the 
LD A,(HL) next character code. 
EACH-S-3 
M1702 САШ NUMBER Step over any number and get the 
LD (CH_ADD),HL new code. 
CP $22 Jump forward if the character is not 
JR NZ, EACH-S-4 a quote (7). 
DECC Otherwise set the quotes flag. 
ЕАСН-5-4 
M170D CP $3A Jump forward if the character is a colon (:). 
JR Z, EACH-S-5 
CP %СВ Jump forward unless the code token is 
JR NZ, EACH-S-6 ‘THEN’. 
EACH-S-5 
M1715 BIT 0,C Read the quotes flag and jump back at the end of 
each 
JR Z, EACH-S-1 statement (incl after THEN). 
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EACH-S-6 

M1719 СР $0D 
JR NZ, EACH-S-2 
DEC D 


SCF 
RET 


NEXT-ONE Subroutine 
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Jump back unless at end of BASIC line. 


Decrease the statement counter and set the carry 
flag 
before returning. 


Used to find the next line in the program area or the next variable in the variables area. 
On entry HL has the point from which to start looking. On exit, HL is the same as entry, 
DE holds address of next record and BC is length record. 


NEXT-ONE (RECLEN) 
M1720 PUSH HL 
LD A,(HL) 
CP $40 
JR C, NEXT-O-3 
BIT 5,A 
JR 2, NEXT-O-4 
ADD A,A 
JP M, NEXT-O-1 
CCF 


NEXT-O-1 
M172F  LD BC,$0005 


JR NC, NEXT-O-2 
LD C,$12 


NEXT-O-2 
M1736 КА 


INC HL 

LD A,(HL) 

JR NC, NEXT-O-2 
JR NEXT-O-5 


NEXT-O-3 
M173D INC HL 


Save the address of current line or 
variable and get the first byte. 
Jump if this is a BASIC line 

(line numbers are less than $40) 
Jump if an array or a string. 


Jump if simple number or 
FOR-NEXT variable. 
Left with long name numeric variables. 


A numeric variable uses five locations but a FOR- 
NEXT 

control variable 

uses eighteen locations. 


The carry flag is reset only for long name 
variables. Loop until the 

entire variable name is found. 

Get the next code. 

Jump back unless code was last one in the 
variable name. 

Found all of the name, move on to adjust memory 
pointer. 


Bump for a BASIC line: step past low byte of line 
number. 
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МЕХТ-О-4 
M173bE ІМСНІ 2nd bump for BASIC line ог bump to access 
length for number arrays 
LD C,(HL) or string entities. 
INC HL Put the length into BC. 
LD B,(HL) 
INC HL Allow for the inclusive byte. 
NEXT-O-5 
M1743 ADD HL,BC Point to the first byte of the next line or variable, 
restore 
POP DE the character pointer. 


Difference Subroutine 


The length between two starts is put in BC. The pointers are restored but returned 
exchanged. 


DIFFER 

M1745 ANDA Prepare for subtraction. 
SBC HL,DE Find the length from one start to 
LD B,H the next and put the result in BC. 
LD C,L 
ADD HL,DE Restore the address and exchange 
EX DE,HL before returning. 
RET 


Reclaiming Subroutine 


The entry point RECLAIM-1 is used when the address of the first location to be reclaimed 
is in the DE register pair and the address of the first location to be left alone is in the HL 
register pair. The entry point RECLAIM-2 is used when the HL register pair points to the 
first location to be reclaimed and the BC register pair holds the number of the bytes that 
are to be reclaimed. 


RECLAIM-1 (DEL_DE) 


M174D CALL DIFFER Use difference to find appropriate values. 
RECLAIM-2 (DELREC) 
M1750 PUSH BC Save number of bytes to be reclaimed. 
LD A,B All the system variable pointes above the area 
have to be 
CPL adjusted by BC, so 
LD B,A this number is the 2's complement 
LD A,C of BC before the pointers are altered. 
CPL 
LD C,A 
INC BC 
PUSH BC Save BC. 
CALL POINTERS Adjust system variable pointers 
EX (SP),HL down BC bytes. Get BC back and 
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ADD HL,BC 
LD C,L 

LD B,H 
POP DE 
POP HL 
ADD HL,DE 
PUSH DE 
LDIR 

POP HL 
RET 


E-LINE-NO Subroutine 
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save HL. 


Do the actual reclaiming. 


Reads the line number of the line in the editing area. If there is no line number, i.e. a 
direct BASIC line, then the line number is considered to be zero. In all cases the line 


number is returned in BC. 


E-LINE-NO (LINNG) 
M1768 LD HL,(ELINE) 
DEC HL 
LD (CH_ADD),HL 
RST $20 
LD HL,MEMBOT 
LD (STKEND),HL 
CALL INT-TO-FP 
CALL FP-TO-BC 


JR C, E-L-1 
LD HL,$D8FO 
ADD HL,BC 
E-L-1 
M1782 JP C,REPORT-C 
JP SET-STK 


Get pointer to the edit line. 

Set CH_ADD to the location before 
any number. 

Pass the first code to the A register. 
Before evaluating the code, make 
the calculator memory a temporary 
calculator stack. Next, read the 
digits of the line number. Compress line number 
into BC. 

Jump forward if number is >65536. 
Test if number is >10000. 


Report C if over 9999. 
Return via calculator stack reset. 


Report And Line Number Printing Subroutine 


OUT-NUM-1 will print the number in BC. Values over 9999 will not print correctly. 


OUT-NUM-2 will print the number indirectly addressed by HL, with any necessary leading 
spaces. OUT-NUM-2 is also will not print numbers over 9999. 


OUT-NUM-1 (PUT BC) 
M1788 PUSH DE 

PUSH HL 

XOR A 

BIT 7,B 

ЈК NZ,OUT-NUM-4 

LD H,B 

LDL,C 

LD E,$FF 


Save the other registers. 

Clear A. 

Jump forward to print a zero rather than -2 
when reporting on the edit line. 

Move the number in to HL. 


Flag ‘no leading spaces’. 
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JR OUT-NUM-3 


OUT-NUM-2 (PUT_LN) 
M1795 PUSH DE 

LD D,(HL) 

INC HL 

LD E,(HL) 

PUSH HL 

EX DE,HL 

LD E,$20 


OUT-NUM-3 

M179D LD BC,$FC18 
CALL OUT-SP-NO 
LD BC,$FF9C 
CALL OUT-SP-NO 
LD C,$F6 
CALL OUT-SP-NO 
LD A,L 


OUT-NUM-4 

M17AF CALL OUT-CODE 
POP HL 
POP DE 
RET 


98 


Jump forward to print the number. 


Save DE. 
Put number in DE 
and save the updated pointer. 


Move number to HL and flag 
for printing leading spaces. 


This is -1000. 

Print first digit. 

This is -100. 

Print second digit. 

This is -10. 

Print third digit. 

Move remaining part to A. 


Print the digit. 
Restore the registers. 
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Cartridge-Based BASIC Routines 


One of the most unique features of the TS 2068 is the ability to run BASIC 
programs from a cartridge. 


A number of computers (Atari, Commodore, Texas Instruments) could run 
machine-language programs from cartridges, like the TS 2068, but only the Т! 
99/4A and the TS 2068 could run BASIC code from a cartridge ROM. 


There are limitations: FOR-NEXT loops can only count up, for instance. But the 
advantages are tremendous: the entirety of the TS 2068 RAM is available for 
program data. The cartridge version of Pro/File 2068, for instance, could store 
10K more data than the cassette version. 


These routines work by copying individual program lines to a special buffer in 
RAM, where they are then executed. 


AROS-CART 
M17B5 PUSH BC Save BC to the stack. BC contains number of 
spaces in RAM to create. 
LD BC,$FFOO Put bank # 255 in B. 
CALL BANK_ENABLE Bank enable (in RAM). 
POP BC Restore BC. 
CALL MAKE-ROOM Insert BC spaces, starting at location in HL. 
LD HL,(SYSCON) 
LD DE,$0004 Skip to the memory chunk specification 
ADD HL,DE for an AROS. 
LD A,(HL) Get the memory chunk specification. 
LD B,$00 Specify DOCK bank. 
LD С,А 
CALL BANK_ENABLE Enable the banks requested by the AROS. 
RET 


GET-A-LINE (GETAL) 
Find line number BC in the AROS cartridge. On exit, HL points to the first byte of the line 
number. 


M17CF LD HL,(SYSCON) Get the address of the 
INC HL code in the AROS 
INC HL cartridge. 
LD E,(HL) LSB of the address in E. 
INC HL DE points to the code 
LD D,(HL) in the cart. 
EX DE,HL Move to HL. 

A-FIND-LN 

Search for the AROS line number. 

М1708 LDA,(HL) Check if this is the line number, 
СРВ move оп. 
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JR NZ, A-LN-NT-FND 


INC HL Bump the pointer, 
LD A,(HL) get the next byte. 
DEC HL Point back to where we were. 
CPC 
A-LN-NT-FND 
М17Е0 RET NC Return if we have passed the required line 


number - that exact number does not exist, but 
we are past it. 


INC HL Get previous the line number. 
INC HL 
LD E,(HL) 
INC HL DE now has the line length. 
LD D,(HL) Point HL to the first byte of code in the 
INC HL line, then update HL to 
ADD HL,DE points to the start of the next line. 
JR A-FIND-LN Back around for the next line. 
AROS-LINE (AR LN) 
M17EA PUSH HL Save the line pointer. 
LD HL,(SYSCON) Put location of SYSCON in HL. 
LD DE,$0004 Skip past first 4 bytes 
ADD HL,DE to 
LD A,(HL) get the chunk map. 
LD C,A Pass to C. 
LD B,$00 Specify dock bank. 
CALL BANK_ENABLE Enable the chunks. 
POP BC Restore line pointer to BC. 
CALL GET-A-LINE Find line number. 


JR AROS-NEXT-1 
AROS-NEXT (AR_NXT) 


M17FF CALL SYNTAX-Z Return if syntax checking, otherwise 
RET Z fetch the next line address from DOCK. 
LD HL,(SYSCON) Get the address of the SYSCON table. 
LD DE,$0004 Skip ahead to the chunk map. 
ADD HL,DE 
LD A,(HL) Get the chunk map. 
LD C,A Pass to C. 
LD B,$00 Set up for DOCK bank. 
CALL BANK_ENABLE Switch on DOCK bank. 
LD HL,(NXTLIN) Get address of the next line from it. 
LD (IY+ONSPPC),00 Reset NSPPC. 

AROS-NEXT-1 

M1818 LDA,(HL) Get first byte of the line. 
AND %С0 Clear bits O to 6. 
JR Z, AROS-NEXT-2 If not EOL, jump ahead. 
LD BC,$FFOO Enable HOME bank, all chunks. 
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CALL BANK_ENABLE 
RET 


AROS-NEXT-2 


M1824 


LD D,(HL) 


LD (NXTLIN),HL 
PUSH DE 

LD HL,(CHANS) 
DEC HL 

LD DE,(ARSBUF) 
AND A 

SBC HL,DE 

LD DE,$00D0 
EX DE,HL 

AND A 

SBC HL,DE 

JR NC, AROS-NEXT-3 


LD HL,(ARSBUF) 
PUSH BC 

LD BC,$FFOO 

CALL BANK_ENABLE 
POP BC 

CALL RECLAIM-2 

LD HL,(SYSCON) 

LD DE,$0004 

ADD HL,DE 

LD A,(HL) 

LD B,$00 

LD СА 

CALL BANK_ENABLE 
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Get the high byte of the line address. 
Move to the low byte. 

Get the low byte. 

Put it in the variable for the current line. 
Move to the next byte. 


Set the address of the next line in the program. 


Get the address of CHANS. 

Go one lower in memory. 

Get the address of the AROS line buffer. 
Clear A. 

Subtract ARSBUF from CHANS. 

Normal size of ARSBUF. 

Swap. 

Clear A. 

Subtract that to find out if ARSBUF is set. 
Jump if ARSBUF is available. 

Put LSB in A. 

Flip the bits. 

Move A їо С. 

Put Hin A. 

Flip the bits. 

Move A to B. 

Jump forward two bytes. 


Address of ARSBUF in HL. 


Set up to enable HOME bank, all chunks 


Clean up memory. 

Point to the SYSCON table. 
Offset to chunk map. 

Add to get there. 

Get the chunk map. 

Set the DOCK bank. 

Chunk map to C. 

Enable the cartridge. 
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AROS-NEXT-3 
M186E POP HL 

PUSH HL 

LD DE,$00CF 

DEC HL 

AND A 

SBC HL,DE 

JR C, AROS-NEXT-4 


LD HL,(CHANS) 
DEC HL 
CALL AROS-CART 


AROS-NEXT-4 
M1883 POP BC 
POP DE 
LD HL,$00FF 
PUSH HL 
PUSH DE 
LD HL,(ARSBUF) 
LD (HL),$0D 
LD (CH_ADD),HL 
INC HL 
PUSH HL 
PUSH BC 
LD BC,$0001 
PUSH BC 
CALL XFER_BYTES 
LD A,(IY+ONSPPC) 
LD (IY+ONSPPC),$FF 
CP $01 
ADC A,$00 
DECA 
PUSH AF 
LD (SUBPPC),A 
LD (IY+OERRNR),$FF 
LD BC,$FFOO 
CALL BANK_ENABLE 
POP AF 
JP Z, LS4 
INCA 
LD D,A 
LD E,$00 
CALL SUBLIN1 
JP 2, STMT-NEXT 
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Get HL value off the stack. 
Put it back. 

Size of ARSBUF - 1. 

And decrement HL. 

Clear A. 

Subtract. 

Carry is set, jump forward. 
Move L to C. 

Move H to B. 

Increment to start of ARSBUF. 
Put address of CHANS in HL. 
Decrement it. 

Make some room. 


Pop these values off the stack. 


And 255 in HL. 
Put that on the stack. 


Get the address of ARSBUF. 
Put 13 at that location. 
Move it to СН ADD. 


Transfer bytes. 

Get ONSPPC. 

Set ONSPPC to $FF. 

Set the flags if we subtracted 1. 
Add, set the carry flag. 

Count down one. 

Put it on the stack. 

Set the SUBPPC to value of A. 
Set OERRNR to $FF. 

HOME bank, all chunks. 
Enable. 

Get A and flags back. 

If zero is set, jump to LS4. 
Increment A. 

Move to D. 

Set LSB to O. 

Get the sub-line. 

If zero, go to STMT-NEXT. 


REPORT-N 
RST $08 
DEFB $16 
AROS 
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Error: Statement lost. 


Sets up the 2068 for working with an AROS cartridge. 


M18C6 


LD HL,ARSFLG 
LD (HL),$80 

LD BC,$00D0 
LD HL,$6840 
DEC HL 

CALL MAKE-ROOM 
LD HL,$6840 

LD (ARSBUF),HL 
LD HL,(SYSCON) 
LD DE,$0006 
ADD HL,DE 

LD C,(HL) 

INC HL 

LD B,(HL) 

LD HL,$6840 
DEC HL 

CALL MAKE-ROOM 
LD HL,(SYSCON) 
LD DE,$0004 
ADD HL,DE 

LD A,(HL) 

LD B,$00 


LD HL,(SYSCON) 
INC HL 

INC HL 

LD E,(HL) 

INC HL 

LD D,(HL) 

EX DE,HL 

LD D,(HL) 

INC HL 

LD E,(HL) 

LD BC,$FFOO 
CALL BANK_ENABLE 
LD HL,(SYSCON) 
LD BC,$0005 
ADD HL,BC 

LD A,(HL) 

CP $00 


Get AROS flags address. 

Set ARSFLG to AROS present. 

Set up how much space to set aside. 
ARSBUF will be at $6840. 


Create space for the line. 
Set the location of ARSBUF. 


Get the address of the SYSCON table. 
Offset to amount of RAM to reserve 
for machine code variables. 

And set 

the value 

for inserting 

some more space. 


Create the space. 
Get the address of SYSCON table again. 
Set the offset for memory chunk specification. 


Get the memory chunk spec. 

Clear B. 

Set BC to memory chunk spec. 

And enable the DOCK bank(s). 

Get the address of SYSCON table yet again. 
Skip ahead two bytes to the starting address 
of the AROS, address of the first program line. 
Get the LSB of the address. 

Move to the next byte. 

Get the MSB of the address. 

Swap DE and HL. 

Get the MSB of the first line. 


Get the LSB of the first line. 


Enable the HOME bank. 

Get the address of SYSCON table, yet again. 
Skip ahead to autostart specification. 

Set address. 

And get the autostart value. 

Is it an autostart AROS? 
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JR 2, AROS-END 

LD (NEWPPC),DE 
CALL CLS 

LD HL,(SYSCON) 
INC HL 

INC HL 

LD E,(HL) 

INC HL 

LD D,(HL) 

EX DE,HL 

DEC HL 

LD (DATADD),HL 

LD (IY+OERRNR),$FF 
SET INTPT,(IY+OFLAGS) 
LD (IY+ONSPPC),00 
LD HL,$0E8D 

PUSH HL 

LD HL,$1AB9 

El 

JP (HL) 


AROS-END 


M1941 


104 


El 
JP MAIN-1 


Not autostart, so finish processing. 
Set the line number to go to. 

Clear the screen. 

And get the pointer to SYSCON table. 
Skip ahead two bytes 

to the starting address. 

Get the starting 

address. 


Swap and then 

go back one. 

Set the data list pointer. 
Reset ON ERR. 

Set up FLAGS. 

Set up NSPCC. 
Address for MAIN-4. 


Address for STMT-RET. 
Re-enable interrupts. 
Jump to STMT-RET. 


Re-enable interrupts. 
Back to the main execution loop. 
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BASIC Line and Command Interpretation 


This part of the ROM considers a BASIC line as a set of statements. Each line is 
scanned and each command is executed in turn as it encountered. 


Syntax Tables 


OFFSET TABLE (KEWTBL) 

Offset values for each of the BASIC commands. For example, the first command is DEF 
FN and its offset is B5. Add this to the start address to get M19FA, the start of the DEF 
FN code. This is class 05 (at M1B74) and then a jump to M201D, the DEF FN routine. 


KEWTBL 


M1945 DEFB $B5 DEF FN M19FA 
DEFB 600 CAT M1A16 
DEFB $CO FORMAT M1A07 
DEFB $C4 MOVE M1A0C 
DEFB $C8 ERASE M1A11 
DEFB $B3 OPEN # M19FD 
DEFB $B8 CLOSE # M1A03 
DEFB $97 MERGE M19E3 
DEFB $95 VERIFY M19E2 
DEFB $96 BEEP M19E4 
DEFB $99 CIRCLE M19E8 
DEFB $9C INK M19EC 
DEFB $9C PAPER M19ED 
DEFB $9C FLASH М19ЕЕ 
DEFB %9С BRIGHT M19EF 
DEFB $9C INVERSE М19Ғ0 
DEFB $9C OVER М19Ғ1 
DEFB %9С OUT M19F2 
DEFB $83 LPRINT M19DA 
DEFB $85 LLIST M19DD 
DEFB $32 STOP M198B 
DEFB $70 READ M19CA 
DEFB $72 DATA M19CD 
DEFB $74 RESTORE M19D0 
DEFB $4C NEW M19A9 
DEFB $98 BORDER M19F6 
DEFB$5C | CONT M1989 
DEFB $43 DIM M19A3 
DEFB $45 REM M19A6 
DEFB $2F FOR M1991 
DEFB $1B GOTO M197E 
DEFB $23 GOSUB M1987 
DEFB $3B INPUT M19A0 
DEFB $7B LOAD M19E1 
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DEFB $48 LIST M19AF 
DEFB $13 LET M197B 
DEFB $5D PAUSE M19C6 
DEFB $2F NEXT M1999 
DEFB $47 POKE M19B2 
DEFB $31 PRINT M199D 
DEFB $55 PLOT M19C2 
DEFB $3E RUN M19AC 
DEFB $71 SAVE М19Е0 
DEFB $46 RANDOMIZE М19В6 
DEFB $11 IF M1982 
DEFB $4D CLS M19BF 
DEFB $60 DRAW M19D3 
DEFB $48 CLEAR M19BC 
DEFB $19 RETURN M198E 
DEFB $61 COPY M19D7 

KEWTBL2 

M1977 DEFB %А4 DELETE M1A1B 
DEFB %А6 ON ERR M1A1E 
DEFB $A8 RESET M1A21 
DEFB АА | SOUND M1A24 

PARAMETER TABLE 

For each of the BASIC commands there are up to eight entries in the parameter table. 

These entries comprise command class details, required separators and, where 


appropriate, command routine addresses. 


M197B P-LET DEFB $01 CLASS-01 
DEFB $3D "=" 
DEFB $02 CLASS-02 
P-GOTO DEFB $06 CLASS-06 
DEFB $00 CLASS-00 
DEFB $F1,$1E GO-TO, M1EF1 
P-IF DEFB $06 CLASS-06 
DEFB CB “THEN” 
DEFB $05 CLASS-05 
DEFB $5B,$1C IF, M1C5B 
P-GOSUB DEFB $06 CLASS-06 
DEFB $00 CLASS-00 
DEFB $99,$1F GOSUB, M1F99 
P-STOP DEFB $00 CLASS-00 
DEFB $59,$1C STOP, М1С99 
P-RETURN DEFB $00 CLASS-00 
DEFB $D4,$1F RETURN, M1FD4 
P-FOR DEFB $04 CLASS-04 
DEFB $3D "=" 
DEFB $06 CLASS-06 
DEFB $CC “TO” 
DEFB $06 CLASS-06 
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DEFB $05 
DEFB $78,$1C 
DEFB $04 
DEFB $00 
DEFB $55,$1D 
DEFB $05 
DEFB $59,$21 
DEFB $05 
DEFB $2B,$22 
P-DIM DEFB $05 
DEFB $CO,$2F 
P-REM DEFB $05 
DEFB $00,$1B 
DEFB $00 
DEFB $0D,$1D 
P-RUN DEFB $03 
DEFB $2B,$1F 
P-LIST DEFB $05 
DEFB $45,$15 
DEFB $08 
DEFB $00 
DEFB $0A,$1F 
P-RANDOMIZE 
DEFB $03 
DEFB $D4,$1E 
P-CONTINUE DEFB $00 
DEFB $E4,$1E 


P-NEXT 


P-PRINT 


P-INPUT 


P-NEW 


P-POKE 


P-CLEAR DEFB $03 
DEFB $36,$1F 
P-CLS DEFB $00 
DEFB $A6,$08 
P-PLOT DEFB $09 
DEFB $00 
DEFB $35,$26 
P-PAUSE DEFB $06 
DEFB $00 
DEFB $EB,$1F 
P-READ DEFB $05 
DEFB $97,$1D 
P-DATA DEFB $05 


DEFB $82,$1E 
P-RESTORE  DEFB $03 
DEFB $9D,$1E 


P-DRAW DEFB $09 
DEFB $05 
DEFB $DB,$26 

P-COPY DEFB $00 
DEFB $02,$0A 

Р-ІРКІМТ DEFB $05 
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CLASS-05 
FOR, M1C78 
CLASS-04 
CLASS-00 
NEXT, M1D55 
CLASS-05 
PRINT, M2159 
CLASS-05 
INPUT, M222B 
CLASS-05 
DIM, M2FCO 
CLASS-05 
КЕМ,М1В00 
CLASS-0 
NEW, M1DOD 
CLASS-03 
RUN, M1F2B 
CLASS-05 
LIST, M1545 
CLASS-08 
CLASS-00 
POKE, M1FOA 


CLASS-03 
RANDOMIZE, M1ED4 
CLASS-00 
CONTINUE, M1EE4 
CLASS-03 

CLEAR, M1F36 
CLASS-00 

CLS, M08A6 
CLASS-09 
CLASS-00 

PLOT, M2635 
CLASS-06 
CLASS-00 

PAUSE, M1FEB 
CLASS-05 

READ, M1D79 
CLASS-05 

DATA, M1E82 
CLASS-03 
RESTORE, M1E9D 
CLASS-09 
CLASS-05 

DRAW, M26DB 
CLASS-00 

COPY, M0A02 
CLASS-05 
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P-LLIST 


P-SAVE 
P-LOAD 
P-VERIFY 
P-MERGE 
P-BEEP 


P-CIRCLE 


P-INK 


P-BORDER 


P-DEF FN 


P-OPEN 


P-CLOSE 


P-FORMAT 


P-MOVE 


P-ERASE 


P-CAT 


DEFB $55,$21 
DEFB $05 
DEFB $41,$15 
DEFB $0B 
DEFB $0B 
DEFB $0B 
DEFB $0B 
DEFB $08 
DEFB $00 
DEFB $36,$04 
DEFB $09 
DEFB $05 
DEFB $79,$26 
DEFB $07 
DEFB $07 
DEFB $07 
DEFB $07 
DEFB $07 
DEFB $07 
DEFB $08 
DEFB $00 
DEFB $04,$1F 
DEFB $06 
DEFB $00 
DEFB $3E,$24 
DEFB $05 
DEFB $1D,$20 
DEFB $06 
DEFB $2C 
DEFB $0A 
DEFB $05 
DEFB $2A,$14 
DEFB $06 
DEFB $00 
DEFB $9F,$13 
DEFB $0A 
DEFB $2C 
DEFB $05 
DEFB $CC,$25 
DEFB $0A 
DEFB $2C 
DEFB $05 
DEFB $D0,$25 
DEFB $0A 
DEFB $2C 
DEFB $05 
DEFB $D4,$25 
DEFB $0A 
DEFB $2C 


LPRINT, M2155 
CLASS-05 
LLIST, M1541 
CLASS-0B 
CLASS-0B 
CLASS-0B 
CLASS-0B 
CLASS-08 
CLASS-00 
BEEP, M0436 
CLASS-09 
CLASS-05 
CIRCLE, M2679 
CLASS-07 
CLASS-07 
CLASS-07 
CLASS-07 
CLASS-07 
CLASS-07 
CLASS-08 
CLASS-00 

OUT, M1F04 
CLASS-06 
CLASS-00 
BORDER, M243E 
CLASS-05 

DEF FN, M201D 
CLASS-06 


CLASS-0A 
CLASS-05 
OPEN, M142A 
CLASS-06 
CLASS-00 
CLOSE, M139F 
CLASS-0A 


CLASS-05 
FORMAT, M25CC 
CLASS-0A 


CLASS-05 
MOVE, M25D0 
CLASS-0A 


CLASS-05 
ERASE, M25D4 
CLASS-0A 


ға 
1 


DEFB $05 
DEFB $C8,$25 
P-DEL DEFB $05 
DEFB $D1,$20 
P-ON ERR DEFB $05 
DEFB $80,$20 
P-RESET DEFB $05 
DEFB $54,$24 
P-SOUND DEFB $05 
DEFB $28,$21 
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CLASS-05 

САТ, М25С8 
CLASS-05 
DELETE, M20D1 
CLASS-05 
ONERR, M2080 
CLASS-05 
RESET, M2454 
CLASS-05 
SOUND, M2128 


Note: The requirements for the different command classes are as follows: 


CLASS-00: No further operands. 


CLASS-01: Used in LET. A variable is required. 

CLASS-02: Used in LET. An expression, numeric or string, must follow. 
CLASS-03: A numeric expression may follow. Zero to be used in case of default. 
CLASS-04: A single character variable must follow. 


CLASS-05: A set of items may be given. 


CLASS-06: A numeric expression must follow. 


CLASS-07: Handles color items. 


CLASS-08: Two numeric expressions, separated by a comma, must follow. 
CLASS-09: As for CLASS-08 but color items may precede the expressions. 
CLASS-OA: A string expression must follow. 


CLASS-OB: Handles cassette routines. 


Main Parser Of BASIC Interpreter Syntax 


The parsing routine of the BASIC interpreter is entered at LINE-SCAN when syntax is 
being checked and at LINE-RUN when a BASIC program of one or more statements is to 
be executed. Each statement is considered in turn and the system variable СН ADD is 
used to point to each code of the statement as it occurs in the program area or the 


editing area. 


LINE-SCAN 
M1A27 RESINTPT,IY--OFLAGS) 
CALL E-LINE-NO 


LD A,B 
ORC 
JR Z, LINE-SCAN-1 


CART-CHECK 

M1A32 LDA, (ARSFLG) 
BIT AROS,A 
JP NZ, REPORT-C 


Signal that syntax checking is on. 

Make CH_ADD point to first code after line 
number. 

Put B in A to test if 

ВС = 0? 

If line number is 0, skip check for cartridge. 


Get AROS flags. 

Is an AROS cartridge present? 

Report error: BAD BASIC. Should not be syntax 
checking programs running from a cartridge. 
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LINE-SCAN-1 
МЛАЗА XORA Initialize A to 0. 
LD (SUBPPC),A Set SUBPPC to 0. 
DECA Set A to FF. 
LD (ERR_NR),A Set ERR_NR to FF. 
JR STMT-L-1 Jump forward to consider first statement in the 
line. 
STMT-LOOP (LS4) 
Each statement is evaluated until the end of the line is reached. 
M1A44  RST $20 Advance СН ADD along the line. 
STMT-L-1 
M1A45 CALL SET-NORK Clear the work space. 
INC (IY+OSUBPPC) Bump the sub-statement and jump if there are 
more than 127 in the line. 
JP M, REPORT-C Report error: BAD BASIC. 
RST $18 Get current character. 
LD B,$00 Set up B for later. 
CP $0D Is character a carriage return? 
JP Z, LINE-END Jump to LINE-END if yes. 
CP ':' Is this a colon? 
JR Z, STMT-LOOP Go back around to start of loop. 


Found a statement, do some tests before evaluating it. 


LD HL,$1AB9 Put return address of STMT-RET on stack. 

PUSH HL 

LD C,A Save command temporarily in C. 

RST $20 Advance CH_ADD. 

LD A,C Restore last command. 

CP $0C Jump if token is DELETE. 

JR Z, TKN-IS-DEL 

CP $7B Jump if token is ON ERR. 

JR C, GET-TOKEN-OFFSET 

CP $80 Is it a graphic character? 

JR NC, GET-TOKEN-OFFSET 

BIT 0,A Jump if token is for keywords 

JR NZ,TKN-IS-DEL ONERR, SOUND, RESET. 

GET-TOKEN-OFFSET 
M1A71 SUB $CE Reduce the command code to the range of $0 - 

$31. 

JP C, REPORT-C If this is not a command code, do error - BAD 
BASIC. 

LD C,A Move the offset value into BC. 

LD HL, KEWTBL Set HL to base address of the keyword syntax 
offset table. 
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FIND-OFFSET-ADDR 
M1A7A ADD HL,BC 
LD C,(HL) 
ADD HL,BC 
JR GET-PARAM 


TKN-IS-DEL 

M1A7F СР $0C 
JR NZ,TKN-IS-OTHER 
LD A,$00 
JR CHK-KEWTBL2 


TKN-IS-OTHER 

M1A87 SUB $7A 
CP $05 
JR NZ, CHK-KEWTBL2 
LD А,502 


CHK-KEWTBL2 
M1A8F LD HL, KEWTBL2 
LD CA 
JR FIND-OFFSET-ADDR 


SCAN-LOOP 
M1A95 LD HL, (TADDR) 


GET-PARAM 
M1A98 LD A,(HL) 


INC HL 

LD (TADDR),HL 

LD BC, SCAN-LOOP 
PUSH BC 

LD СА 

CP $20 

JR NC, SEPARATOR 


LD HL, CLASTBL 
LD B,$00 

ADD HL,BC 

LD C,(HL) 

ADD HL,BC 


PUSH HL 
RST $18 
DEC B 
RET 
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Pass required offset. 
Compute the base address of the 
parameter table. 


Jump if token is not DELETE. 


Force A to zero and bypass 
next test. 


A=1 for ON ERR, 3 for SOUND, 5 for RESET. 
Jump if token is not RESET. 


Force A (RESET) to 2. 


Point to second half of keyword table. 
Put the massaged token in C. 
Look up in the table. 


The class handler returns here from the address 
pushed below. 


Get the first (or next) byte of the syntax table - the 
instruction's class (first byte) or the required token 
or class (succeeding bytes). 

Point to the next byte in the syntax table. 

Store its address in TADDR. 

Return address from class handler. 


Save the "class". 

Jump if the "class" is not in the range $00..$11. 
This means it could be the next value in the 
syntax table. 

Put base address of command class table in HL. 
Clear B. 

Combine to make index into the table. 

Get offset from the table 

and form address of the actual "class" 

handler ... 

... and push it onto the stack. 

Get current character. 

B=$FF 

Indirect jump to the command class routine. 
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Separator Subroutine 


The report ‘Nonsense in BASIC’ is given if the required separator is not present. When 
syntax is being checked, the actual report does not appear on the screen, only the ‘error 


marker’. 
SEPARATOR 
M1AB2 RST $18 


CPC 


JP NZ,REPORT-C 
RST $20 
RET 


STMT-RET Subroutine 


Get current character. 

Check the current character in A against the value 
from the syntax table. Declare an error if they 
don't match - the syntax is wrong. 

Error - BAD BASIC 

Step past a correct character 

and return. 


After the correct interpretation of a statement, a return is made to this entry point. 


STMT-RET (ENDBTT) 
M1AB9 CALL BREAK-KEY 
JR C, STMT-R-1 


REPORT-L 
RST $08 
DEFB $14 


STMT-R-1 

M1ACO BIT 7,(IY-- ONSPPC) 
JP NZ, STMT-NEXT 
LD HL,(NEWPPC) 
BIT 7,H 
JR NZ,LINE-RUN 
LD A,(ARSFLG) 
BIT 7,A 
JP NZ, AROS-LINE 
JR LINE-NEW 


BREAK key is tested after every statement. 
Jump forward if not pressed. 


Error: Break. 


Jump forward if there is not a 

“jump” to be made. 

Get the new line number and jump 
forward unless handling another statement 
in the editing area. 

Put the AROS flags in A. 

Is this program running in AROS? 

Yes, get the next line from AROS. 

Nope, continue as normal. 


LINE-RUN Entry Point 


Used when a line in the editing area is to be тип”. The syntax/run flag (bit 7 of FLAGS) will 
be set. Also used in the syntax checking a line in the editing area that has more than one 
statement (bit 7 of FLAGS will be reset). 


LINE-RUN (EXECUTE) 
M1AD8 LD HL,$FFFE 


Line in the editing area is considered as 
LD (PPC),HL line number -2. 

LD HL,(WORKSP) Make HL point to the end marker of the 
DEC HL editing area and DE point to the location 
LD DE,(ELINE) before the start of that area. 

DEC DE 


LD A,(NSPPC) Fetch the number of the next statement. 
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JR NEXT-LINE 
LINE-NEW 
M1AEC CALL LINE-ADDR Find the starting address of the line or 
LD A,(NSPPC) first line after and move to A. 
JR Z, LINE-USE Jump forward if the line was found, 
AND А otherwise, check validity of statement number. 
JR NZ, REPORT-N If it's not zero, error to Report М. 
LD B,A And check that the ‘first line after’ is not 
LD A,(HL) after the end of program. 
AND $CO 
LD A,B 
JR Z, LINE-USE Jump forward with valid address or signal done 
with 0, OK. 
REPORT-O 
RST $08 Report: 0, OK. 
RST $38 FF 


REM Command Routine 


Return address to STMT-RET is dropped which has the effect of forcing the rest of the line 
to be ignored. 


M1BOO POP BC Drop the address. 
LD A,(ARSFLG) Put the AROS flags in A. 
BIT AROS,A Is this program running in AROS? 
JP NZ, AROS-NEXT Yes, handle with AROS version of LINE-END. 


LINE-END Routine 


If checking syntax a simple return is made but when ‘running’ the address held by 
NXTLIN has to be checked before it can be used. 


LINE-END 
М1В09 CALL SYNTAX-Z Return if syntax checking. 
RET Z 
LD HL,(NXTLIN) Otherwise, get the address of next line. 
LD A,$CO Return if the address is after 
AND (HL) the end of the program: 
RET NZ the ‘run’ has finished. 
XOR A Signal ‘statement zero’ before proceeding. 
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LINE-USE Routine 


This short routine has three functions: change statement zero to statement '1'; find the 
number of the new line and enter it into PPC; form the address of the start of the line 
after. 


LINE-USE 
M1B15 CP $01 If A is zero, make it 1. 
ADC A,$00 
LD D,(HL) 
INC HL Put the new line number into the 
LD E,(HL) "line currently being interpreted" 
LD (PPC),DE pointer. 
INC HL 
LD E,(HL) Get the line length. 
INC HL 
LD D,(HL) 
EX DE,HL Point to the next line and put the pointer 
ADD HL,DE into the "next line to be interpreted" 
INC HL pointer. 


NEXT-LINE Routine 


On entry, HL points to the location after the end of the 'next' line to be handled and the 
DE register pair to the location before the first character of the line. This applies to lines 
in the program area and also to a line in the editing area - where the next line will be the 
same line again whilst there are still statements to be interpreted. 


NEXT-LINE 


M1B27 Set NXTLIN for use once the current line has been 
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LD (NXTLIN),HL 


EX DE,HL 

LD (CH_ADD),HL 
LD D,A 

LD E,$00 

LD (IY- ONSPPC),$FF 
DECD 

LD (IY+OSUBPPC),D 
JP 2, STMT-LOOP 
INC D 

CALL EACH-STMT 
JR Z, STMT-NEXT 


completed. 

Point CH. ADD to the location before 

the first character. 

Save statement number in D. 

Clear E register in case EACH-STMT is used. 
Signal ‘no jump’. 

Statement number minus one 

goes in SUBPPC. 

First statement can be evaluated. 

For later statements, the starting address 
has to be found. 

Jump forward unless statement does not exist. 
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REPORT-N 
M1B42  RST $08 Error: Statement lost. 
DEFB $16 


CHECK-END Routine 


Checks the interpret flag (bit 7 of FLAGS) and gives an error report if the end of a 
statement has not been reached. Moves on to STMT-NEXT if the syntax is correct. 


CHECK-END (ENDO) 


M1B44 CALL SYNTAX-Z Do not continue unless checking 
RET NZ syntax. 
POP BC Drop addresses of SCAN-LOOP and 
POP BC STMT-RET before continuing. 


STMT-NEXT Routine 


If the next character is a carriage return, the next statement is on the next line. If it's a 
colon, it's on the same line. If any other character is found, there's an error in syntax. 


STMT-NEXT (ENDTEM) 
М1В4А RST $18 Get current character. 
CP $0D Jump if not at the end of a line. 
JR NZ, SUB-LINE 
LD HL,(NXTLIN) Get the pointer to the next BASIC line. 
LD A,(ARSFLG) Put AROS flags in A. 
BIT AROS,A Is this code being run from the DOCK? 
JP NZ, AROS-NEXT Handle in AROS section. 
JR LINE-END Continue normal line execution. 
SUB-LINE 
Test for line end. 
M1B5C СР": Is this a colon? 
JP Z, STMT-LOOP No, keep executing statements. 
JP REPORT-C Error - BAD BASIC. 


COMMAND CLASS TABLE (CLASTBL) 


М1В64 DEFB $0F CLASS-00 M1B73 
DEFB$1D СІА55-01 M1B82 
DEFB $4B CLASS-02 M1BB1 
DEFB $09 СІА55-03 M1B70 
DEFB $67 CLASS-04 M1BCF 
DEFB $0B CLASS-05 M1B74 
DEFB $7B CLASS-06 M1BE5 
DEFB $8E CLASS-07 M1BF9 
DEFB $71 CLASS-08 M1BDD 
DEFB$BC СІА55-09 M1C29 
DEFB $81 CLASS-0A M1BEF 
DEFB $D7 CLASS-OB M1C46 
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Command Classes 00, 03 and 05 
Commands in CLASS-03 might be followed by a number. e.g. RUN or RUN 200. 


CLASS-03 (TEM3) 

M1B70 CALL FETCH-NUM See if there’s a number. Zero is provided if none. 
CLASS-00 (TEMO) 

CLASS-00 commands have no operands. Ex: COPY or CONTINUE. 

M1B73 CPA Set the zero flag for later. 


CLASS 05 (ТЕМ5) 
CLASS-05 commands may be followed by a set of items. Ex: PRINT or PRINT "222". 


M1B74 POP BC In all cases drop the address SCAN-LOOP. 
CALL Z ,CHECK-END If handling classes О or 3 and syntax is being 
checked, move on to next statement. 
EX DE,HL Save the line pointer to DE. 


JUMP-C-R Routine 


After the command class entries and the separator entries in the parameter table have 
been processed, jump to the appropriate command routine. 


JUMP-C-R 

M1B79 LD HL,(TADDR) Get the point to the 
LD C,(HL) entries in the parameter table 
INC HL and fetch the address of the 
LD B,(HL) command routine. 
EX DE,HL Exchange pointers back and 
PUSH BC make an indirect jump to the 
RET command routine. 


Command Classes 01, 02 and 04 


These three command classes are used by the variable handling commands (LET, FOR & 
NEXT) and indirectly by READ & INPUT. Command CLASS-01 is concerned with the 
identification of the variable in a LET, READ or INPUT statement. 


CLASS-01 (ТЕМ1) 
M1B82 CALL LOOK-VARS 


Variable in Assignment Subroutine 


This subroutine gets the appropriate values for the system variables DEST & STRLEN. 


VAR-A-1 

M1B85 LD (IY+OFLAGX),00 Initialize FLAGX to O. 
JR NC, VAR-A-2 Jump forward if variable has been used before. 
SET FLEX,(IY+OFLAGX) Signal 'flexible length variable.' 
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JR NZ, VAR-A-3 Report error if trying to used undimensioned 
array. 
REPORT-2 
M1B91 RST $08 Error: Variable not found. 
DEFB $01 
VAR-A-2 
M1B93 CALL Z,STK-VAR Pass parameters of string and array variables to 
the calculator stack. 
ВІТ NUM,(IY--OFLAGS) Jump forward if this is a numeric variable. 
JR NZ, VAR-A-3 
XOR A Clear A. 
CALL SYNTAX-Z Get parameters of string or string array 
CALL NZ,STK-FETCH unless syntax is being checked. 
LD HL,FLAGX Put FLAGX in HL. 
OR (HL) Set bit 0 when handling complete 
LD (HL),A simple strings, signaling ‘deleted old copy.’ 
EX DE,HL HL points to string or element in array. 
VAR-A-3 


The data now come together to set STRLEN & DEST as required. For all numeric 
variables and new string & string array variables, STRLEN-lo holds the letter of the 
variable's name. But for old string & string array variables whether sliced or complete, it 
holds the length in assignment. 


VAR-A-3 
М1ВА9 LD (STRLEN),BC Set STRLEN. 

LD (DEST),HL DEST holds address for the destination of 
the old variable but is also source for new 
variable. 

RET 


CLASS-02 (TEM2) 


Class 02 calculates the value to be assigned in a LET statement. 


M1BB1 POP BC Drop SCAN-LOOP address from stack. 
CALL VAL-FET-1 Assign the value. 
CALL CHECK-END Move on to next statement or STMT-RET. 
RET 


Fetch a Value Subroutine 


This subroutine is used by LET, READ and INPUT statements to first evaluate and then 
assign values to the previously designated variable. The entry point VAL-FET-1 is used by 
LET & READ and considers FLAGS whereas the entry point VAL-FET-2 is used by INPUT 
and considers FLAGX. 


VAL-FET-1 
M1BB9 LD A,(FLAGS) Get FLAGS. 
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VAL-FET-2 (LT22) 


M1BBC PUSH AF Save FLAGS. 
CALL SCANNING Evaluate the next expression. 
POP AF Get FLAGS back. 
LD D,(IY+OFLAGS) Get the new FLAGS. 
XOR D Determine if the type (numeric or string) 
AND $40 of variable and expression match. 
JR NZ,REPORT-C Error - BAD BASIC. 
BIT INTPT,D Jump forward to make assignment unless 
JP NZ, LET checking syntax, then return. 
RET 


Command Class 04 Routine 
Class 04 is used by FOR & NEXT statements. 


CLASS-04 (TEM4) 


M1BCF CALL LOOK-VARS Look in variables area for the variable. 
PUSH AF Save AF. 
LD A,C Test to see if this variable is a FOR-NEXT 
OR $9F control variable. 
INCA If not, report 
JR NZ,REPORT-C Error - BAD BASIC 
POP AF Restore AF. 
JR VAR-A-1 


Expect Numeric/String Expressions Subroutine 


Series of short subroutines that fetch the result of evaluating the next expression. The 
result from a single expression is returned as a ‘last value’ on the calculator stack. 
NEXT-2NUM is used when CH_ADD needs updating to point to the start of the first 
expression. 


NEXT-2NUM (DYADIC) 


M1BDC RST $20 Move CH. ADD forward. 

EXPT-2NUM (TEM8/CLASS-08) 

M1BCF CALL EXPT-1NUM Evaluate the next expression, 
СР", jump if another argument is 
JR NZ,REPORT-C not available. 
RST $20 Get next char, fall through to 


evaluate the next expression. 


EXPT-1NUM (TEM6, CLASS-06) 


M1BE5 САШ SCANNING Evaluate the next expression. 
BIT NUM,(IY+OFLAGS) Return if the expression was a number. 
RET NZ 

REPORT-C 

M1BED RST $08 Error: Nonsense in basic. 
DEFB $0B 
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EXPT-EXP (ТЕМ10, CLASS-0A) 


M1BEF CALL SCANNING Evaluate the next expression. 
BIT NUM,(IY+OFLAGS) Return if the last expression 
RET Z was a string (not a number). 
JR REPORT-C Error - BAD BASIC. 


Set Permanent Colors Subroutine (CLASS-07) 


Make the temporary colors permanent. As command class 07, it is the command routine 
for INK, PAPER, FLASH, BRIGHT, INVERSE and OVER. 


PERMS (TEM7) 
M1BF9 BIT INTPT,(IY-- OFLAGS) Check the syntax/run flag. 
RES LHS,(IY+OTVFLAG) Signal 'upper screen'. 


CALL NZ, TEMPS If this is a ‘run’, call TEMPS to ensure temporary 
colors are the main screen colors. 

POP AF Drop the return address (SCAN-LOOP). 

LD A,(TADDR) Put the low byte of TADDR in A. 

LD HL,(TADDR) Put value of TADDR in HL. 

LD DE,$1914 This is some kind of offset constant? 

AND A Clear flags. 

SBC HL,DE Get the difference of (TADDR) - $1914. 

LD A,L Put the low byte from TADDR in L. 

CALL CO-TEMP-4 Jump forward to change temporary colors as 
directed by BASIC statement. 

CALL CHECK-END Move to the next statement if checking syntax. 

LD HL,(ATTRT) Make temporary color values permanent. 

LD (ATTRP),HL 

LD HL,PFLAG Check the P-FLAG. 

LD A,(HL) 


The following instructions make the permanent bits the same as the temporary by 
copying event bits of the supplied by to the odd bits. 


RLCA Move the mask to the left. 
XOR (HL) Set up the mask 

AND $AA so it considers only even bits 
XOR (HL) of the other byte. 

LD (HL),A 

RET 


Command Class 09 Routine 


Used by PLOT, DRAW and CIRCLE to specify default conditions of ‘FLASH 8; BRIGHT 8; 
PAPER 8’. Set up before any embedded color items are considered. 


CLASS-09 (TEM9) 


M1C29 CALL SYNTAX-Z Jump forward if checking syntax. 
JR 2, СІ-09-1 
RES LHS,(IY+OTVFLAG) Signal ‘upper screen.’ 
CALL TEMPS Set the temporary color for the upper screen. 
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LD HL,MASKT Put MASKT in HL. 

LD A,(HL) Get the current value but 

OR $F8 keep on the INK part (via a mask). 

LD (HL),A Restore value which is now FLASH 8; BRIGHT 8; 
PAPER 8. 

RES B_CF,(IY+OPFLAG) Ensure setting is not PAPER 9. 

RST $18 Get current character before going to deal 


with embedded color items. 


CL-09-1 (STK_O) 


M1C41 САШ CO-TEMP-2 Handle the local color items. 
JR EXPT-2NUM Get the next two operands for PLOT, DRAW or 
CIRCLE. 


Command Class OB Routine 
Routine used by SAVE, LOAD, VERIFY and MERGE statements. 


CLASS-OB (TEM11) 
М1С46 ЈР NEWDEV 


Fetch A Number Subroutine 


Gets a number for evaluation. Put a zero on FP stack if at the end of a line or statement or 
if there is no expression. 


FETCH-NUM (OPTNO) 


M1C49 СР $00 Jump if the end of line. 
JR 7, USE-ZERO 
Cp Jump to evaluate a numeric expression 
JR NZ,EXPT-1 NUM if not the end of statement. 
USE-ZERO (STKFPO) 
M1C51 CALL SYNTAX-Z Return if checking syntax. 
RETZ 
RST $28 Otherwise, put a zero on the calculator stack. 
DEFB $A0 CONST 0 (0) 
DEFB $38 QUIT 
RET 


STOP Command Routine 
STOP is a call to the error handling routine. 


STOP (TSSTOP) 
M1C59 RST $08 Error: Stop. 
DEFB $08 


120 


HOME ROM 


IF Command Routine 


On entry the value of the expression between the IF and the THEN is the last value on 
the calculator stack. If this is logically true then the next statement is considered; 
otherwise the line is considered to have been finished. 


IF (TSIF) 
M1C5B POP BC Drop the current return address (STMT-RET). 
CALL SYNTAX-Z Jump forward if syntax checking. 
JR Z, IF-1 
RST $28 Use the calculator to delete the last value 
DEFB $02 (DROP) on the calculator stack but leave DE. 
DEFB $38 (QUIT) addressing first byte of the value. 
EX DE,HL Make HL point to the first byte and 
CALL TEST-ZERO call TEST-ZERO. 
JR NC, IF-1 Not zero, so jump forward. 
LD A, (ARSFLG) Put ARSFLG in A. 
BIT AROS,A Is there an AROS present? 
JP NZ, AROS-NEXT Yes, go handle in AROS section. 
JP LINE-END It was a zero, jump to the next line. 
IF-1 
M1C75 JPSTMT-L-1 Jump to the next statement (after THEN). 


FOR Command Routine 


Entered with the VALUE and the LIMIT of the FOR statement on the top of the calculator 
stack. 


FOR 
M1C78 CP$CD Jump forward unless a STEP value is provided. 
JR NZ, F-USE-1 
RST $20 Advance CH. ADD and 
CALL EXPT-1NUM get the value for STEP. 
CALL CHECK-END Move to next statement if checking syntax, 
JR F-REORDER else jump forward. 
F-USE-1 
M1C85 CALL CHECK-END Move to the next statement if checking syntax. 
RST $28 Set the unspecified STEP value to 1. 
DEFB $A1 CONST 1 (256) 
DEFB $38 QUIT 
F-REORDER 


The three values on the calculator stack are the VALUE (v), the LIMIT (l) and the STEP (5). 
They need to be re-ordered. 


M1C8B RST $28 Call calculator. Values are v, |, s 
DEFB %С0 Put s in mem-O 
DEFB $02 Drop s 
DEFB $01 Swap l, v 
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DEFB $EO 
DEFB $01 
DEFB $38 
CALL LET 
LD (MEM),HL 


Recall mem-O (s): |, v, s 

Exchange to |, s, v. 

QUIT 

Find the variable or create if necessary. 
Make it a "memory" area. 


The variable that has been found may be a simple numeric variable using only six 
locations. If so, it needs to be extended. 


F-L&S 
M1CA9 


DECHL 

LD A,(HL) 

SET 7,(HL) 

LD BC,$0006 

ADD HL,BC 

RLCA 

JRC, F-L&S 

LD C,$0D 

CALL MAKE-ROOM 
INC HL 


PUSH HL 
RST $28 
DEFB $02 
DEFB $02 
DEFB $38 
POP HL 

EX DE,HL 
LD C,$0A 
LDIR 

LD HL,(PPC) 
EX DE,HL 
LD (HL),E 
INC HL 

LD (HL),D 
LD D,(IY+OSUBPPC) 
INC D 

INC HL 

LD (HL),D 


Get the variable's single character 
name. 

Check whether bit 7 is set. 

It will have six locations at least. 
Make HL point after them, 

Rotate the name and jump if 

it was already a FOR variable. 
Otherwise, expand to 13 characters. 


Make HL point to the LIMIT. 


Save the pointer. 

Call calculator with |, s still on calc stack, 
Drop l. 

Drop s. 

Quit. DE still points to ‘I’. 

Restore the pointer 

and exchange them. 

Ten bytes of the LIMIT and STEP are 
moved. 

Get the current line number. 
Exchange the registers before 
adding the line number to the 

FOR control variable. 


Looping statement is always the next 
statement, whether it exists 
or not. 


Call NEXT-LOOP to test the possibility of a 'pass' and a return is made if one is possible. 
Otherwise the statement after for FOR - NEXT loop has to be identified. 
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CALL NEXT-LOOP 
RET NC 

LD HL,(PPC) 

LD (NEWPPC),HL 
LD A,(SUBPPC) 
NEG 

LD D,A 


Is a ‘pass’ possible? 

Return now if it is. 

Copy the current line number 

to NEWPCC. 

Get the current statement number 
and twos complement it. 

Transfer result to D. 


LD HL,(SYSCON) 
INC HL 

LD A,(HL) 

CP $02 

JR NZ, F-L&S-1 
INC HL 

INC HL 

INC HL 

LD A,(HL) 

AND $0F 

LD СА 

LD B,$00 

CALL BANK_ENABLE 
LD BC, (PPC) 
CALL GET-A-LINE 
LD H,B 
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Put location of SYSCON in HL 

Add one to get to cartridge type. 
Get the kind of cartridge. 

Is it an AROS? 

No, keep processing the FOR loop. 
Go past cartridge type. 

Skip starting address (two bytes). 


Get the chunk map. 

Accept only the lower half of the chunk. 
Move to C. 

Specify dock bank. 

Switch the bank on. 

Put the current line number in BC. 

Go fetch the line. 

And put that line number in HL. 


Go back one. 
Continue processing the FOR loop. 


Search for NEXT. 


Search in the program area, from this point forward, for NEXT followed by the correct 


LD L,C 
DEC HL 
JR F-L&S-2 
F-L&S-1 
M1CF2 LD HL,(CH_ADD) 
F-L&S-2 
М1СЕ5 LDE,$F3 
F-LOOP 
variable. 
M1CF7 LD BC,(NXTLIN) 
CALL LOOK-PROG 
LD (NXTLIN),BC 
LD B,(IY+OSTRLEN) 
JR C, REPORT-I 
RST $20 
OR $20 
CP B 
JR Z, F-FOUND 
RST $20 
JR F-LOOP 
F-FOUND 
M1D10 RST $20 
LD A,$01 
SUB D 


LD (NSPPC),A 
LD HL,ARSFLG 
LD L,(HL) 

BIT AROS,L 


Get the current value of NXTLIN. 
Search the program area. BC will change as each 
new line is examined. 

Save the pointer. 

Put STRLEN in B. 

If Carry is set, REPORT I. 

Go past the NEXT that was found. 
Allow for upper and lower case letters 
before testing the variable name. 
Variable name matched, jump ahead. 
Not the correct variable name, so 
keep looking. 


Advance СН ADD. 

The statement counter in D counted statements 
back from zero so it has to be subtracted from 1. 
Store the result. 

Put the AROS flag in HL. 

Only interested in L. 

Is there an AROS present? 
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JR Z, F-FOUND-RET Yes, jump ahead to return. 
LD BC,$FFOO Enable home bank, all chunks. 
CALL BANK_ENABLE 
F-FOUND-RET 
M1D25 БЕТ Return to STMT-RET. 
REPORT-| 
M1D26 RST $08 Error: FOR without NEXT. 
DEFB $11 


LOOK-PROG Subroutine 


Finds occurrences of DATA, DEF FN or NEXT. On entry, the appropriate token code is in 
the E register and the HL register pair points to the start of the search area. 


LOOK-PROG (SKIP) 


M1D28 LDA,(HL) Get the current character. 
CP $3A Jump forward if it is a colon; there are 
JR Z, LOOK-P-2 more statements on this line. 
LOOK-P-1 
Loop over and examine each line after "FOR" line. 
M1D2D INC HL Get the high byte of the line number 
LD A,(HL) and return with carry set if there are 
AND $CO no more lines in the program. 
SCF 
RET NZ 
LD A,E Put the token in A. 
CP $E4 Is it ‘DATA’? 
JR NZ, LOOK-P-1A No, keep looking through the line. 
LD (ADATLN),HL Put HL in the pointer to the start of the current 
DATA line in AROS. 
LOOK-P-1A 
M1D3B LD B,(HL) Get the line number 
INC HL and pass it to NEWPPC. 
LD C,(HL) 
LD (NEWPPC),BC 
INC HL Then get the length of the line. 
LD C,(HL) 
INC HL 
LD B,(HL) 
PUSH HL Pointer is saved while the address at the 
ADD HL,BC end of the line is combined with BC. 
LD B,H 
LD C,L 
POP HL Pointer is restored. 
LD D,$00 Set statement counter to zero. 
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LOOK-P-2 

M1D4D PUSH BC End-of-line pointer is saved while 
CALL EACH-STMT statements on the line are examined. 
POP BC Return if there was a match; otherwise 
RET NC continue to the next line. 
JR LOOK-P-1 


NEXT Command Routine 


The variable in assignment has already been determined (see CLASS-04, M1BCF); and it 
remains to change the VALUE as required. 


NEXT 
M1D55 BIT UNFND, (IV- OFLAGX) Jump to error if the variable was not 
JP NZ, REPORT-2 found. 
LD HL,(DEST) Get the address of the variable 
BIT 7,(HL) and test the name. 
JR Z, REPORT-1 Error if it does not match the FOR variable. 


Manipulate the VALUE and STEP with the calculator. 


INC HL Step past the variable name. 

LD (MEM),HL Put the variable in a calculator memory area. 
RST $28 Call calculator. 

DEFB $EO MEM 0 -» T (v) 

DEFB $E2 MEM 2 -» T (v, s) 

DEFB $0F ADD (v+s) 

DEFB $CO T -> MEM О (v+s) 

DEFB $02 DROP 

DEFB $38 QUIT 


Result of adding VALUE and STEP is now tested against LIMIT by calling NEXT-LOOP. 


CALL NEXT-LOOP Test new VALUE against LIMIT. 
RET C Return if FOR-NEXT loop has been completed. 


Otherwise, get the 'looping' line number and statement. 


LD HL,(MEM) Find the address of the low byte of the 

LD DE,$000F looping line number. 

ADD HL,DE 

LD E,(HL) Get the line number. 

INC HL 

LD D,(HL) 

INC HL 

LD H,(HL) Followed by the statement number. 

EX DE,HL Exchange the numbers before jumping forward 
JP GO-TO-2 to treat them as the destination of a GO TO. 
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REPORT-1 
M1D82 RST $08 
DEFB $00 


Error: NEXT without FOR. 


NEXT-LOOP Subroutine 


Tests whether LIMIT has been exceeded by the present VALUE. Pays attention to sign of 
STEP except for programs running from AROS. Returns the carry flag set if LIMIT is 
exceeded. 


NEXT-LOOP 
M1D84 RST $28 Call calculator. 
DEFB $E1 MEM 1 -> T (l) 
DEFB $EO MEM О -> T (I, м) 
DEFB $E2 MEM 2 -> T (I, v, s) 
DEFB $36 MINUSO (I, v, 1/0) 
DEFB $00,$02 IFJUMP NEXT-1 
DEFB $01 SWAP (v, 1) 
NEXT-1 
M1D8C DEFB $03 SUB (v-l or I-v) 
DEFB $37 PLUSO (1/0) 
DEFB $00,$04 IFJUMP 1D93 
DEFB $38 QUIT 
AND A Clear the carry flag and return: 
RET loop is possible. 
NEXT-2 
M1D93  DEFB $38 QUIT: loop is impossible, 
SCF set the carry flag and return. 
RET 


READ Command Rovutine 


The READ command reads from a DATA list. It has an effect similar to a series of LET 
statements. Each assignment within a single READ statement processed in turn. X PTR 
holds the pointer to the READ statement; СН ADD steps along the DATA list. 


READ-3 
M1D96 RST $20 Come here on each pass (after the first) to 


move the READ statement along. 


READ 

M1D97 CALL CLASS-01 
CALL SYNTAX-Z 
JP Z, READ-2 
RST $18 
LD (X PTR)HL 
LD HL,ARSFLG 
LD L,(HL) 
BIT AROS,L 


Check if variable been used? Find the variable. 
Jump if syntax checking. 


Save the current pointer (CH_ADD) in X_PTR. 
Get the AROS flag to check 

whether this program 

is running in AROS. 
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ЈР Z, READ-N 


GET-CART-DATA 
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Not running in AROS, continue with normal 
READ. 


Set up to read the data from the cartridge. 


M1DAD LD HL,(SYSCON) 
LD DE,$0004 
ADD HL,DE 
LD A,(HL) 
AND $0F 
LD B,$00 
LD СА 
CALL BANK ENABLE 
LD HL(DATADD) 
LD A,(HL) 


READ-CART-DATA 
M1DC1 CP $2C 
JR Z, UPD-CART-DATA 
LD E,$E4 
CALL LOOK-PROG 
JR NC, NEW-DATA-ADDR 


AROS-OUT-OF-DATA 


Set the base address. 

And the offset 

to get to the chunk map. 

Get the chunk map address. 

Only accept the lower half of the chunk map. 
DOCK bank. 

Chunk map to C. 

Switch in the cart to examine the program. 
Get the DATA list pointer 

and jump forward 


Unless a new DATA statement 
can be found. 
Look for next DATA line. 


If a new DATA line is found, jump ahead. 


No more data, restore the system and report the error. 


M1DCC LD BC,$FFOO 
CALL BANK_ENABLE 
JP REPORT-E 


NEW-DATA-ADDR 
M1DD5 LD (DATADD),HL 


UPD-CART-DATA 

M1DD8 LD HL,ADATLN) 
INC HL 
INC HL 
LD C,(HL) 
INC HL 
LD B,(HL) 
LD (DTLNLN+1),BC 
LD BC,$FFOO 
CALL BANK_ENABLE 
LD BC,(DTLNLN+1) 
LD HL,(CHANS) 
PUSH HL 
DEC HL 
CALL MAKE-ROOM 
POP DE 


Set home bank, all chunks. 


Store the new DATA list pointer. 


Put the data address in HL. 
Skip line number. 


Length to C. 


Update cart data length. 

Set to home bank, all chunks. 
Switch back to home. 

Put the data length back in BC. 
And save CHANS. 


Go down one then, 
Open some space. 
Put CHANS in DE. 
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LD HL,$00FF 
PUSH HL 

LD HL,ADATLN) 
INC HL 

INC HL 

INC HL 

INC HL 

PUSH HL 

PUSH DE 

LD BC,(DTLNLN+1) 
PUSH BC 

LD BC,$0001 
PUSH BC 

CALL XFER_BYTES 


LD HL(ADATLN) 
LD DE,(DTLNLN+1) 
ADD HL,DE 

LD DE,$0004 
ADD HL,DE 

LD BC,(DATADD) 
AND A 

SBC HL,BC 

LD B,H 

LD C,L 

LD HL,(CHANS) 
AND A 

SBC HL,BC 
PUSH HL 

INC HL 

LD (CH_ADD),HL 
CALL VAL-FET-1 
POP DE 

LD HL,(CH_ADD) 
AND A 

SBC HL,DE 

LD DE,(DATADD) 
ADD HL,DE 

LD (DATADD),HL 
LD HL,(CHANS) 
LD BC,(DTLNLN+1) 
AND A 

SBC HL,BC 
CALL RECLAIM-2 
JP READ-1A 


Put $FF in HL to 

get it into 

ADATLN. 

Skip the line number 
and line length. 


Save these 

vars for later. 

Put the data length in BC again. 
And save that. 

Next, put a $1 on the stack. 


Transfer the data statement from cartridge to 
HOME RAM. 

DATA statement address back to HL. 

DATA statement length to DE. 

Set HL to end of data length. 


Add $04 to the address. 

Put DATA list pointer into BC. 

Clear A. 

Subtract the DATA list pointer from HL. 
Save HL for a bit. 


Save CHANS. 

Clear A. 

Subtract the DATA list pointer from CHANS. 
Save it on the stack. 

Bump it forward one byte. 

Store the value in CH_ADD. 

Get the first value in the DATA statement. 
Restore temporary CHANS value. 

Update CH_ADD. 

Clear A. 

Subtract CHANS from CH_ADD. 

Store DATA list pointer in DE. 

Add that to modified CH_ADD. 

Update DATA list pointer. 

Put CHANS in HL. 

Put DTLNLN + 1 in BC. 

Clear A. 

Subtract DTLNLN from CHANS. 

Remove the DATA line from workspace. 
Move on to next READ statement. 


READ-N 


Read DATA as normal, from RAM. 


M1E52 LD HL,DATADD) 
LD A,(HL) 

CP $2C 

JP 2, READ-1 

LD E,$E4 

CALL LOOK-PROG 


JR NC, READ-1 


REPORT-E 
M1E62 RST $08 
DEFB $0D 
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Get the current DATA list pointer 
and jump forward unless a new 
DATA statement has to be found. 


Search for ‘DATA’. 


Jump forward if the search 
is successful. 


Error: Out of data. 


Continue - picking up a value from the DATA list. 


READ-1 
M1E64 CALL TEMP-PTR1 


CALL VAL-FET-1 
RST $18 
LD (DATADD),HL 


READ-1A 

M1E6E LD HL,(X_PTR) 
LD (IY+(OXPTR+1)),00 
CALL TEMP-PTR2 


READ-2 

M1E78 RST $18 
CP $2C 
JP 2, READ-3 
CALL CHECK-END 
RET 


DATA Command Routine 


Advance the pointer along the DATA list 
and set CH. ADD. 

Get the value and assign to the variable. 
Get current value of CH. ADD 

and store it in DATADD. 


Get the pointer to the READ statement. 
and clear X PTR. 
Make СН ADD point to the READ statement. 


Get the current character and see if it 

is a comma. 

If it is, go back and keep READing. 

Otherwise, return via CHECK-END (if checking 
syntax) or the RET instruction (to STMT-RET). 


DATA statement syntax is checked when entered to ensure it contains a series of valid 
expressions, separated by commas. At run-time, the statement is passed by. 


DATA 
M1E82 CALL SYNTAX-Z 
JR NZ, DATA-2 
DATA-1 
M1E87 CALL SCANNING 
CP $2C 
CALL NZ, CHECK-END 
RST $20 
JR DATA-1 


Skip ahead if not interpreting. 


Scan for the next expression. 

Confirm comma is separator. 

Move to next statement if not a comma. 

As long as there are still expressions to evaluate 
keep looping. 
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DATA-2 
М1Е92 LDA,$E4 


Bypass DATA statement during runtime. 


Pass-By Subroutine 


On entry the A register will hold either ‘DATA’ or 'DEF FN' token, depending on the type 


of statement that is being 'passed-by'. 


PASS-BY 

M1E94 LDB,A 
CPDR 
LD DE,$0200 
JP EACH-STMT 


Make BC hold a very high number. 

Look back along statement for token. 

Look along the line for the statement after 

(the D-1th statement from the current position). 


RESTORE Command Routine 


The operand for a RESTORE command is taken as a line number, zero being used if no 
operand is given. The REST-RUN entry point is used by the RUN command routine. 


RESTORE 

M1E9D CALL FIND-INT2 
LD HL,(SYSCON) 
INC HL 
LD A,(HL) 
CP $02 
JR NZ, REST-RUN 
INC HL 
INC HL 
INC HL 
LD A,(HL) 
AND $0F 
PUSH BC 
LD СА 
LD B,$00 
CALL BANK_ENABLE 
POP BC 
CALL GET-A-LINE 
LD BC,$FFOO 
CALL BANK_ENABLE 
JR REST-DATADD 
CALL LINE-ADDR 


REST-DATADD 

M1EC5 DEC HL 
LD (DATADD),HL 
RET 


REST-RUN (RESTBC) 
МЛЕСА LDH,B 

LD L,C 

CALL LINE-ADDR 
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Is it RAM? 


Chunk map to C. 
Expansion bank. 


AROS line retrieval routine. 
Home bank, all chunks. 
Restore to home bank. 


Make DATADD point to the location 
before. 


Operand is in BC. Transfer to HL. 


Find the address of the line or the first line after. 
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DEC HL Make DATADD point to the location 
LD (DATADD),HL before. 
RET 


RANDOMIZE Command Routine (RAND) 


Once again the operand is compressed into the BC register pair and transferred to the 
required system variable. However if the operand is zero the value in FRAMES1 and 
FRAMES2 is used instead. 


RANDOMIZE (RAND) 


M1ED4 CALL FIND-INT2 Get the operand. 

LD A,B Jump forward unless the value 

ORC of the operand is zero. 

JR NZ, RAND-1 

LD BC, (FRAMES) Get the two low order bytes of FRAMES. 
RAND-1 
M1EDF LD (SEED),BC Enter the result into SEED. 

RET 


CONTINUE Command Routine (CONT) 


The required line number and statement number within that line are made the object of a 
jump. 


CONTINUE (CONT) 
M1EE4 LD HL, (OLDPPC) Get the line number. 
INC H Add one to the high byte. 
JP Z, REPORT-N If zero flag is set, REPORT N (statement lost). 
DEC H Line number is ok, reset H. 
LD D,(IY+OOSPCC) Put the statement number in D. 
JR GO-TO-2 Jump forward. 


GO TO Command Routine 


The operand of a GO TO should be a line number in the range 1 to 9999. Actual test is 
against an upper value of 61439. 


GO-TO (JUMP) 


M1EF1 САШ FIND-INT2 Get the operand and s 
LD H,B transfer it to BC. 
LD L,C 
LD D,$00 Set statement number to 0. 
LD A,H Jump if line number is 
СР %Ғ0 too large. 


JR NC, REPORT-B 
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GO-TO-2 
M1EFD LD (NEWPPC),HL Put new line number into BASIC's program jump 
instruction pointer 
LD (IY+ONSPPC),D Set statement pointer to 0. 
RET Return to the interpreter 


OUT Command Routine 


The two parameters for the OUT instruction are fetched from the calculator stack and 
used as directed. 


OUT (K_OUTPUT) 

М1Ғ04 CALL TWO-PARAM 
OUT (C),A 
RET 


POKE Command Routine 


POKE is essentially the same as OUT. 


POKE 

M1FOA САШ TWO-PARAM 
LD (BC),A 
RET 


TWO-PARAM Subroutine 


The topmost parameter on the calculator stack must be compressible into a single 
register. It is two's complemented if it is negative. The second parameter must be 
compressible into a register pair. 


TWO-PARAM 
M1FOF CALL FP-TO-A Parameter is fetch from calculator stack. 
JR C,REPORT-B If number is too high, report an error. 
JR Z, TWO-P-1 Jump forward for positive numbers. 
NEG Make negative numbers twos-complement. 
TWO-P-1 
M1F18 PUSH AF Save first parameter. 
CALL FIND-INT2 Get second parameter. 
POP AF Restore first parameter 
RET then return. 


Find Integers Subroutine 


The ‘last value’ on the calculator stack is fetched and compressed into a single register or 
a register pair by entering at FIND-INT1 AND FIND-INT2 respectively. 


FIND-INT1 (INS_U1) 


M1F1E CALL FP-TO-A Top of FP stack to A. 
JR FIND-I-1 to error checking 
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FIND-INT2 (FIX_U) 
M1F23 CALL FP-TO-BC 


FIND-I-1 
M1F26 JRC, REPORT-B 
RET Z 


REPORT-B 
M1F29  RST $08 
DEFB $0A 


RUN Command Routine 
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top of calculator stack to BC 


Error: Integer out of range. 


Any RUN parameter is passed to NEWPPC by calling GO TO. RESTORE 0 and CLEAR 0 


are performed before returning. 


RUN 

M1F2B САШ GO-TO 
LD BC,$0000 
CALL REST-RUN 
JR CLEAR-1 


CLEAR Command Routine 


Call GO TO (JUMP) to set NEWPPC. 
Perform RESTORE О. 


Exit via CLEAR command. 


This routine allows for the variables area to be cleared, the display area cleared and 
RAMTOP moved. In consequence of the last operation the machine stack is rebuilt 
thereby having the effect of also clearing the GO SUB stack. 


CLEAR 
M1F36 CALL FIND-INT2 


CLEAR-RUN (CLR_BC) 
M1F39 LDA,B 

ORC 

JR NZ, CLEAR-1 


LD BC, (RAMTOP) 


CLEAR-1 

M1F41 PUSH BC 
LD DE,(VARS) 
LD HL,(ELINE) 
DEC HL 
CALL RECLAIM-1 
CALL CLS 
LD HL,ARSFLG 
LD L,(HL) 
BIT AROS,L 


JR 2, NORMAL-CLEAR 


LD HL,(SYSCON) 
INC HL 

INC HL 

LD E,(HL) 


Get the operand; use 0 by default. 


Jump forward if the operand is 

anything other than 0. When called from 
RUN there is no jump. 

If 0, use the existing value in RAMTOP. 


Save the value. 
Reclaim all the bytes of the current 
variables area. 


Clear the variables. 
Clear the display area. 
Get the AROS flag. 


Is this program running from a cartridge? 
No, do a normal clear. 

Get the address of the SYSCON table. 
Skip past first two entries. 


Put chunks available in E. 
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INC HL 

LD D,(HL) 

EX DE,HL 

DEC HL 

LD (DATADD),HL 
JR CLEAR-1A 


NORMAL-CLEAR 


M1F67 LD HL, (PROG) 
DEC HL 
LD (DATADD), HL 
CLEAR-1A 


This is where the original CLEAR-1 code picks back up. Value in the BC, which will be 


used as КАМТОР, is tested to ensure it is neither too low nor too high. 


M1F6E 


LD HL,(STKEND) 
LD DE,$0032 
ADD HL,DE 

POP DE 

SBC HL,DE 

JR NC, REPORT-M 
LD HL,(PRAMT) 
AND A 

SBC HL,DE 

JR NC, CLEAR-2 


REPORT-M 


M1F82 


RST $08 
DEFB $15 


CLEAR-2 


M1F84 
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EX DE,HL 

LD (RAMTOP),HL 
POP DE 

POP BC 

LD HL,(MSTBOT) 
DEC HL 

LD (HL),$3E 

DEC HL 

LD SP.HL 


PUSH BC 

LD (ERRSP),SP 
EX DE,HL 

JP (HL) 


Get the current value of STKEND. 
Increase it by 50 before testing. 
This is the lower limit. 


RAMPTOP will be too low. 
Get PRAMT to test for upper limit. 


Jump forward if it’s good. 


Error: RAMTOP no good. 


Pass the value to RAMTOP. 


Get the STMT-RET address. 

Get the ‘error address’. 

Get the machine stack bottom. 
Leave a blank space. 

Enter a GO SUB stack end marker. 
Leave another blank space. 

Make the stack pointer point 

to an empty GO SUB stack. 

Pass the ‘error address’ to the stack 
and save its address in ERR-SP. 
Make an indirect return 

to STMT-RET. 
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GO SUB Command Routine 


This routine saves PPC and SUBPPC on the GO SUB stack, then uses GO TO to put the 
target address into NEWPPC and NSPPC. 


GO-SUB (GO_SUB) 


M1F99 POP DE Save the address (STMT-RET). 
LD H,(IY+OSUBPPC) Get statement number that is executing. 
INC H Point to next statement. 
EX (SP), HL Exchange the ‘error address’ with the 
statement number. 
INC SP (8 bit PUSH) 
LD BC,(PPC) Get current line number. 
PUSH BC Save it. 
PUSH HL Put the ‘error address’ back on the stack. 
LD (ERRSP),SP and reset ERRSP to point to it. 
PUSH DE Return the address STMT-RET. 
CALL GO-TO-1 Call GO TO to set NEWPPC and NSPPC. 
LD HL,(MSTBOT) Get address above machine stack. 
DEC Н Go one page down. 
LD DE,$0010 Need 16 bytes. 
ADD HL,DE Point to address. 
SBC HL,SP If stack pointer is still above the 
RET C required end address, proceed. 
JR REPORT-4 Out of space, give Report 4. 


TEST-ROOM Subroutine 


Checks to see if sufficient RAM is available below RAMTOP to give the caller BC bytes of 
room. If not, exits to error 4. 


TEST-ROOM (CHK_SZ) 


M1FBB LD HL,(STKEND) Get STKEND (start of spare space). 
ADD HL,BC Add the number of bytes requested. 
JR C, REPORT-4 If carry is set, not enough memory. 
EX DE,HL DE points to final address. 
LD HL,$0050 Add a safety margin for machine stack. 
ADD HL,DE 
JR C, REPORT-4 If carry is set, not enough memory. 
LD DE,(RAMTOP) Get RAMTOP (top of BASIC memory). 
SBC HL,DE 
RET C Exit if requested < RAMTOP. 
REPORT-4 (ERR4) 
M1FCF LDL,$03 Out of memory. This is a ‘run-time’ error 
JP ERROR-3 and the error marker is not used. 
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RETURN Command Routine 


Removes the line number and statement number from the GO SUB stack 
then jumps into the GOTO routine to put them into NEWPPC and NSPPC. 


RETURN 
M1FD4 POP BC Get STMT-RET. 
POP HL Get the ‘error address’. 
POP DE Get the last entry on the GO SUB stack. 
LD A,D Test to see if it is the GO SUB stack end 
CP $3E marker. 
JR Z, REPORT-7 Jump if it is not found. 
DEC SP Adjust stack pointer to get statement number, 
EX (SP),HL get it and save HL. 
EX DE,HL Put statement number in DE, line number in HL. 
LD (ERRSP),SP Reset error pointer. 
PUSH BC Replace STMT-RET. 
JP GO-TO2 GOTO the GOSUB return address. 
REPORT-7 
M1FE7 PUSH DE Replace the end marker and 
PUSH HL the ‘error address.’ 
RST $08 Error: RETURN without GOSUB. 
DEFB $06 


PAUSE Command Routine 


Period of PAUSE is determined by counting the number of maskable interrupts as they 
occur every 1/60th of a second. PAUSE is finished either after the appropriate number of 
interrupts or by the system Variable FLAGS indicating that a key has been pressed. 


PAUSE 
M1FEB RES KEYHIT,(IYtOFLAGS) Reset key hit flag. 
CALL FIND-INT2 Get the PAUSE operand. 
PAUSE-1 
M1FF2 HALT Wait for maskable interrupt (М1). 
DEC BC Decrement the PAUSE counter. 
LD A,B If the counter is reduced to 0, 
ORC PAUSE timed out. 
JR 2, PAUSE-END 
LD A,B If the operand was 0, BC now has $FFFF. 
AND C If BC <> $FFFF jump to examine 
INCA the key hit. 
JR NZ, PAUSE-2 
INC BC BC = $FFFF, therefore no timeout. 
PAUSE-2 
M1FFE ВІТ KEYHIT,(IY+OFLAGS) Jump back to wait if a key has 
JR 2, PAUSE-1 not been hit. 
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PAUSE-END 


M2004 RES KEYHIT,(IY+OFLAGS) 


RET 


HOME ROM 


Force no key hit. 


Break-Key Subroutine 
Test BREAK key. Carry flag is returned reset if SHIFT and BREAK are pressed together. 


BREAK-KEY (BREAK) 
M2009 LDA,$7F 
IN A,($FE) 
RRA 
RET C 


BIT 6,(IY+(OERRLN+1)) 


JR Z, BR-KEY-1 
SCF 
RET 


BR-KEY-1 

M2017 LDA,$FE 
IN A,($FE) 
RRA 
RET 


DEF FN Command Routine 


Create the port address and 

read the keyboard. 

Examine only bit O by shifting it to carry. 
Return if BREAK not pressed. 

If we running a program, 

check if the CAPS SHIFT key is on. 
Force no BREAK. 


Carry will be set if 
CAPS SHIFT is pressed. 


DEF FN statement is checked when entered to ensure that it has the correct form. Space 
is also made available for the result of evaluating the function. At run-time, a DEF FN 


statement is bypassed. 


DEF-FN (DEF) 


M201D CALL SYNTAX-Z 


JR Z, DEF-FN-1 
LD A,$CE 
JP PASS-BY 


DEF-FN-1 


M2027 SET NUM,(IY+OFLAGS) 


CALL ALPHA 


JR NC, DEF-FN-4 


RST $20 
CP $24 


JR NZ, DEF-FN-2 
RES NUM,,(IY+OFLAGS) 


RST $20 


Jump forward if checking syntax. 


Load A with DEF FN token 
Bypass if doing syntax. 


Force a numerical result. 

Check if the current code is a letter. 
Jump forward if not. 

Get next character. 

Jump forward unless it is $. 


Reset NUM; this is a string variable. 
Get next character. 
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DEF-FN-2 
M203A CP $28 
JR NZ, DEF-FN-7 
RST $20 
CP $29 
JR 2, DEF-FN-6 


DEF-FN-3 


Loop through the parameters. 


M2043 CALL ALPHA 


DEF-FN-4 

М2046 JP NC,REPORT-C 
EX DE,HL 
RST $20 
CP $24 
JR NZ, DEF-FN-5 
EX DE,HL 
RST $20 


DEF-FN-5 
M2051  EXDE,HL 


LD BC,$0006 

CALL MAKE-ROOM 
INC HL 

INC HL 

LD (HL),$0E 

CP $2C 

JR NZ, DEF-FN-6 
RST $20 

JR DEF-FN-3 


DEF-FN-6 


Process the definition of the function. 


M2063 СР $29 
JR NZ, DEF-FN-7 
RST $20 
CP $3D 
JR NZ, DEF-FN-7 
RST $20 
LD A,(FLAGS) 
PUSH AF 
CALL SCANNING 
POP AF 
ХОК (IY+OFLAGS) 
AND $40 
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A left parenthesis must follow the variable name. 


Report an error if not a (. 
Get next character. 
Compare to right parenthesis. 


Jump forward as there are no parameters to this 


function. 


The current character must be a letter. 


Not a character? Error - BAD BASIC. 
Save the pointer in DE. 

Get next character. 

Jump forward unless it is a $. 


Otherwise, save new pointer to DE. 
Get next character. 


Move the pointer to the last character 
of the name to HL. 

Make six spaces after the last character 
and enter a ‘number marker’ into the 
first of the new locations. 


Is the current character is a comma? 
No, jump out of the loop. 

Get the next parameter and 
continue processing. 


Check that right parenthesis exists. 
No? Report an error. 

Get next character. 

It must be an equal sign (^-"). 

No? Report an error. 

Get next character. 


Save the nature (numeric, string) of variable. 


Process the definition as an expression. 
Retrieve nature of variable and check 
that it is the same type as found for the 
definition. 


DEF-FN-7 
M207A ЈР NZ,REPORT-C 


ON ERR Command Routine 


CALL CHECK-END 
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Error - BAD BASIC 
Exit via the CHECK-END subroutine. 


This statement allows the programmer to disable automatic program termination upon 
encountering an error condition. Line number and statement number that caused the 
error are available at ERRC ($5CB8) апа ERRS($5CBA). 


M2080 


RST $18 

CP $7F 

JR 2, ON-ERR-RESET 
CP $EC 

JR Z, ON-ERR-GO-TO 
CP $E8 

JP NZ REPORT-C 


ON-ERR-CONT 


RST $20 

CALL CHECK-END 

ВІТ 7,(IY-(OERRLN- 1)) 
RETZ 

LD HL,(ERRC) 

LD (NEWPPC),HL 

LD A,(ERRS) 

LD (NSPPC),A 

RES 6,(IY+(OERRLN+1)) 


ON-ERR-RETURN 


M20A7 


POP HL 
LD DE,$0007 
ADD HL,DE 
PUSH HL 
RET 


ON-ERR-RESET 
M20AE RST $20 


CALL CHECK-END 
RES 7,(IY+(OERRLN+1)) 
RES 6,(IY+(OERRLN+1)) 
JR ON-ERR-RETURN 


ON-ERR-GO-TO 
M20BC RST $20 


CALL EXPT-1NUM 
CALL CHECK-END 
CALL FP2BC 

LD A,B 

AND $3F 


Get current character. 

Is this RESET? 

Yes, go to the RESET routine. 
Is it GO TO? 

Yes, go to the GO TO routine. 
Is is CONTINUE? 

No, error - BAD BASIC. 


Get next character. 

Move to the next statement if checking syntax. 
Is the high bit of the error line set? 

No, return. 

Put the line number in HL. 

And set NEWPPC to that line number. 

Put the statement number in A. 

And set NSPCC to the statement number. 
Reset the error flag. 


Get STMT-RET address from stack. 
Add 7 bytes to skip past 

BREAK key checking. 

Put it back on the stack. 

And return from the ERROR. 


Get next character 
Move to the next statement if checking syntax. 
Reset the error codes. 


Get next character. 


Move to the next statement if checking syntax. 
Convert floating point number, put in BC. 
Move MSB to A. 

Clear bits 6 and 7. 
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DELETE Command Routine 


ROM 


OR $80 

LD BA 

LD (ERRLN),BC 
RET 


See if the high bit is set. 
Move it back to B. 
Put that into ERRLN. 


DELETE 
M20D1 


DELETE- 


M20E0 


DELETE- 


M20E7 


RST $18 
CP $2C 


JR NZ, DELETE-LINES 


CALL SYNTAX-Z 


JR 2, DELETE-LINES-1 


RST $28 

DEFB $A1 

DEFB $38 

JR DELETE-LINES-1 


LINES 
CALL EXPT-1NUM 
CP $2C 


JR NZ, DELETE-ERROR 


LINES-1 

RST $20 

CP $0D 

JR Z,DEL-SORT 
CP $3A 

JR Z,DEL-SORT 
CALL EXPT-1NUM 
JR DEL-SORT-1 


DEL-SORT 


Sort delete parameters. 


M20F5 


DEL-SORT-1 


M20FE 
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LD BC,$270F 
CALL SYNTAX-Z 
CALL NZ,STACK-BC 


CALL CHECK-END 
CALL DELETE-FP2BC 
INC HL 

CALL LINE-ADDR 
PUSH HL 

CALL DELETE-FP2BC 
CALL LINE-ADDR 

EX DE,HL 

POP HL 

PUSH HL 


Get current character 

Is it а comma? 

No, deleting a range. 
Jump if syntax checking. 


Call calculator. 
CONST 1 (256) 
QUIT 


Get the value. 
Is ita comma? 


Get next character 
Is it ENTER? 


Colon? 


Put highest line number (9999) in BC. 
Call if interpreting. 
Push value to BC. 


Move to the next statement if checking syntax. 


Increment the line number. 

Is there an existing line with this number? 
Push the line number to the stack. 
Convert to BC. 

Is there an existing line with this number? 
Swap DE and HL. 

Get HL from the stack. 

Put it on the stack. 


SCF 

SBC HL,DE 

JR C, DELETE-ERROR 
POP HL 

CALL RECLAIM-1 

RET 


DELETE-ERROR 


Error in the command. 


M211C RST $08 
DEFB $0B 


DELETE-FP2BC 
M211E САШ FP2BC 
LD A,B 
AND $3F 
LD H,A 
LD L,C 
RET 
M2126 RST $20 


SOUND Command Routine 
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Clear the carry flag. 
Subtract DE from HL. 

If carry is set, crash out. 
Get HL back. 

Remove the line. 
Done. 


Error: Nonsense in BASIC. 


Convert number from floating point, put in BC. 
Move MSB to A. 

Clear bits 6 and 7. 

Move to HL. 


Get next character. 


The SOUND command writes the first parameter (register number) to port $F5 (address in 
the Programmable Sound Generator) and second parameter to port $F6 (data in the 
PSG). The program line is scanned for multiple parameter pairs and continues writing 
address/data pairs until the end of the statement is reached. 


SOUND 
M2127 САШ EXPT-2NUM 


CALL SYNTAX-Z 
JR 2, SOUND-RD 
CALL FP-TO-A 
PUSH AF 

CALL FP-TO-A 
CP $11 

JP NC, REPORT-C 
DECA 

INCA 

JP M, REPORT-C 
OUT ($F5),A 


POP AF 
OUT ($F6),A 


Evaluate the next two comma-separated 
expressions. 

Jump to test if syntax checking. 

If not, read the register/data pair. 

Move the data value toA 

and save the result. 

Move the register number to A 

Test if the register number is too large. 
Error if too high. 

Test bit 7. 


Error, А = 0. 

Output register number to PSG address 
register. 

Get the data value. 

Output to the PSG data register. 
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SOUND-RD 
M2146 RST $18 
CP ';' 
JR Z, SOUND 


CALL CHECK-END 


RET 


UNSTACK-Z Subroutine 


Get current character. 

If it's a semi-colon, there are more 
register/data pairs. 

Keep processing pairs. 

See if there’s anything else on the 
line to process. 

Nope, return. 


Called to ‘return early’ from a subroutine when checking syntax. Avoids printing 
characters or passing values to/from the calculator stack. 


UNSTACK-Z 

M214F CALL SYNTAX-Z 
POP HL 
RETZ 
JP (HL) 


Check mode (syntax checking or interpreting). 
Get the return address but ignore and 

return if syntax checking. 

During run-time, return to the calling routine. 


LPRINT & PRINT Command Routines 


Appropriate channel is opened as necessary and the items to be printed are considered 


in turn. 
LPRINT (K_LPR) 
M2155 LDA,$03 
JR PRINT-1 
PRINT (K PRIN) 
M2159  LD A,(ARSFLG) 
RES BANKCHN,A 
LD (ARSFLG),A 
M2161 LDA,$02 
PRINT-1 
M2163 CALL SYNTAX-Z 
CALL NZ, CHAN-OPEN 
CALL SYNTAX-Z 
CALL NZ, PRINT-1A 
CALL TEMPS 
CALL PRINT-2 
CALL CHECK-END 
RET 
PRINT-1A 
М2179 SET TOKEN,(IY+OFLAGS) 


RET 


142 


Prepare to open channel P. 


Get the AROS flag. 

Reset bank channel flag, output to normal 
channel. 

Store back in AROS flag. 

Prepare to open channel S. 


Is syntax being checked? 

No, open the proper channel. 

Check if syntax is being checked, again. 
No, go set the token flag. 

Set the color attributes. 

Call the print control subroutine. 
Consider the next statement. 


Set token mode on. 
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PRINT-2 (P_SEQ) 
The print control subroutine is called by PRINT, LPRINT and INPUT. 


M217E RST $18 Get current character. 
CALL PR-END-Z Jump forward if already at end of the item list. 
JR Z, PRINT-4 
PRINT-3 
Loop to deal with ‘position controllers’ and the print items. 
M2184 САШ PR-POSN-1 Handle any consecutive position 
JR Z, PRINT-3 controllers. 
CALL PR-ITEM-1 Handle a single print item. 
CALL PR-POSN-1 Check for more position controllers and 
JR Z, PRINT-3 print items until there are none left. 
PRINT-4 
M2191 СР $29 Return if the current character is a right 
RET Z parenthesis. 


Print a Carriage Return Subroutine 


PRINT-CR 

M2194 САШ UNSTACK-Z Return if changing syntax. 
LD A,$0D Print a carriage return character 
RST $10 and return. 
RET 


Print Items Subroutine 


Called from the PRINT, LPRINT and INPUT command routines. The various print items are 
identified and printed. 


PR-ITEM-1 
M219B RST $18 Get current character. 
CP $AC Jump forward if it is not AT. 
JR NZ, PR-ITEM-2 
CALL NEXT-2NUM Transfer the two parameters to the calculator 
stack. 
CALL UNSTACK-Z Return if checking syntax. 
CALL STK-TO-BC Compress parameters in to BC. 
LD A,$16 Put AT control character in A. 
JR PR-AT-TAB 
PR-ITEM-2 
M21AD СР $AD Jump forward if character is not TAB. 
JR NZ, PR-ITEM-3 
RST $20 Get the next character. 
CALL EXPT-1NUM Transfer one parameter to the calculator 
stack. 
CALL UNSTACK-Z Return if checking syntax. 
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CALL FIND-INT2 Compress the value into BC. 
LD A,$17 Put the TAB control character in A. 
PR-AT-TAB 
AT and TAB are printed by making three calls to PRINT-OUT. 
М21ВО RST $10 Print the control character. 
LD A,C Follow it with the first attribute. 
RST $10 Print the second value. 
LD A,B 
RST $10 
RET 
PR-ITEM-3 
Handle embedded color. 
M21C3 CALL CO-TEMP-3 Return with carry reset if color items were found. 
RET NC Continue if none were found. 
CALL STR-ALTER Check if the stream is to be changed. 
RET NC Continue unless it was changed. 
CALL SCANNING Evaluate the expression but return 
CALL UNSTACK-Z if checking syntax. 
ВІТ NUM,(IY--OFLAGS) Test for the nature of the expression. 
CALL Z ,STK-FETCH If it is a string, get necessary parameters. 
JP NZ, PRINT-FP If numeric, exit via PRINT-FP. 
PR-STRING 
Handle each character in a string. 
M21DB LDA,B Return now if there are no characters 
ORC remaining in the string; otherwise 
DEC BC decrease the counter. 
RETZ 
LD A,(DE) Get the code and 
INC DE increment the pointer. 
RST $10 Print the code and jump back 
JR PR-STRING to continue with the string. 


End Of Printing Subroutine 


Checks for termination of a line. If end of statement (close parenthesis, newline or colon), 
return with zero flag=1. 


PR-END-Z 
М21Е4 СР $29 Return if close parenthesis. 
RET Z 
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PR-ST-END (TERMQ) 


M21E7 СР $00 Return if end of line (carriage return). 
RET Z 
СР ӨЗА Return if colon. 
RET 


Print Position Subroutine 


Position controlling characters are handled by this subroutine. 


PR-POSN-1 
M21ED RST $18 Get current character. 
CP $3B Is it a semi-colon? 
JR Z, PR-POSN-3 Yes, jump forward. 
CP $2C Is it a comma? 
JR NZ, PR-POSN-2 Yes, jump forward. 
CALL SYNTAX-Z Is syntax being checked? 
JR Z, PR-POSN-3 Yes, but do not print character. 
LD A,$06 Put comma character in A. 
RST $10 Print the comma. 
JR PR-POSN-3 
PR-POSN-2 
M2200 СР $27 Is it a question mark? 
RET NZ No, return. 
CALL PR-CR Print carriage return. 
PR-POSN-3 
M2206  RST $20 Get next character. 
CALL PR-END-Z Check for end-of-line characters. 
JR NZ, PR-POSN-4 Not end of line, keep going. 
POP BC Prepare to return to calling routine. 
PR-POSN-4 
M220D CPA Clear zero flag. 
RET 


ALTER STREAM Subroutine 
Called to check if the output stream should be updated. 


STR-ALTER (STRITO) 


M220F CP '#' Is the character a number sign? 
SCF Set the carry flag and 
RET NZ return if not #. 
RST $20 Get next character. 
CALL EXPT-1NUM Pass the parameter to the calculator stack. 
AND A Clear the carry flag. 
CALL UNSTACK-Z Return if checking syntax. 
CALL FIND-INT1 Pass the value to A. 
LD (STRMN),A Put into stream number for "bank" devices. 
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INPUT Command Routine 


CP $10 

JP NC, REPORT-O 
CALL CHAN-OPEN 
AND A 

RET 


Jump to invalid stream if 
requested stream # > 16. 
Select the stream in A. 
Clear carry flag. 


Assigns values entered from the keyboard to variables. Also prints text embedded in the 
INPUT statement to the lower part of the display. 


INPUT 
M222B 


INPUT-1 


M2240 


INPUT-2 


M2257 


LD A, (ARSFLG) 
SET BANKCHN,A 


LD (ARSFLG), A 
CALL SYNTAX-Z 
JR Z,INPUT-1 

LD A,$01 

CALL CHAN-OPEN 
CALL CLS-LOWER 


LD (IY+OTVFLAG),01 


CALL IN-ITEM-1 
CALL CHECK-END 
LD BC,(SPOSNCOL) 
LD A,(DFSZ) 

CPB 

JR C, INPUT-2 

LD C,$21 

LD B,A 


LD (SPOSNCOL),BC 
LD A,$19 

SUB B 

LD (SCRCT),A 


RES LHS,(IY- OTVFLAG) 


CALL CL-SET 
JP CLS-LOWER 


IN-ITEM-1 (I SEO) 


Handle INPUT and embedded PRINT. 


M226B 
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CALL PR-POSN-1 
JR Z, IN-ITEM-1 
CP $28 

JR NZ, IN-ITEM-2 
RST $20 


Get the AROS flags. 

Reset the bank channel flag, input from a normal 
stream. 

Put the flag back. 

Jump forward if checking syntax. 


Open channel 'K'. 


Clear the lower portion of the screen. 


Signal that the lower part of the screen is being 
used. Reset all other bits. 

Call subroutine to handle input items. 

Continue with next statement if checking syntax. 
Get the current print position. 

Jump forward if the current position is 

above the lower half of the screen. 


Otherwise, set print position to top of 
lower half of screen. 


Set SPOSNCOL with correct values. 
Set the scroll counter. 


Signal ‘main screen’. 
Set the system variables and 
exit via CLS-LOWER. 


Handle position control characters. 
Jump forward if current character is not ‘(’. 


Get next character. 


CALL PRINT-2 


RST $18 

CP $29 

JP NZ,REPORT-C 
RST $20 

JP IN-NEXT-2 


IN-ITEM-2 
Handle INPUT LINE. 


M2282 


СР $CA 

JR NZ, IN-ITEM-3 

RST $20 

CALL CLASS-01 

SET LINPLN,(IY+OFLAGX) 
ВІТ NUM,(IY+OFLAGS) 
JP NZ,REPORT-C 

JR IN-PROMPT 


IN-ITEM-3 
Handle simple INPUT variables. 


M2297 


CALL ALPHA 

JP NC, IN-NEXT-1 

CALL CLASS-01 

RES LINPLN,(IY+OFLAGX) 


IN-PROMPT 


Create the prompt message. 


M22A4 


IN-PR-1 
M22C4 


CALL SYNTAX-Z 
JP Z, IN-NEXT-2 
CALL SET-WORK 
LD HL,FLAGX 
RES NO,(HL) 
SET INPLN,(HL) 
LD BC,$0001 
BIT LINPLN,(HL) 
JR NZ, IN-PR-2 
LD A,(FLAGS) 
AND $40 

JR NZ, IN-PR-1 
LD C, $03 


OR (HL) 
LD (HL),A 
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Call PRINT command to handle items inside 
parenthesis. 

Get current character. 

If it's not a right parenthesis, give 

error - BAD BASIC. 

Get next character. 

Jump forward to see if there's any more INPUT to 
handle. 


Jump forward if character is not ‘LINE’. 


Get next character. 

Determine where to store the variable. 
Signal ‘using INPUT LINE’. 

If we're using а non-string variable, 
exit via Report C. 


If the current character is not a letter, 

jump forward to the end of input loop routine. 
Determine where to store the variable. 

Signal ‘not INPUT LINE’. 


Jump forward if syntax checking. 


Set workspace to null. 

Put FLAGX in HL. 

Signal ‘string result’. 

Signal ‘INPUT mode’. 

Set prompt message to single location. 
Jump forward if using ‘LINE’. 


Jump forward if expecting a 
numeric entry. 


A string will need three bytes. 


Set bit 6 of FLAGX for numeric entry. 
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IN-PR-2 
M22C6 


IN-PR-3 
M22D3 


RST $30 

LD (HL),$0D 
LDA,C 

RRCA 

RRCA 

JR NC, IN-PR-3 
LD A,$22 

LD (DE),A 
DECHL 

LD (HL),A 


LD (KCUR),HL 
BIT LINPLN, (IY+OFLAGX) 
JR NZ, IN-VAR-3 

LD HL,(CH_ADD) 

PUSH HL 

LD HL,(ERRSP) 

PUSH HL 


IN-VAR-1 


M22E4 


LD HL,$22E4 

PUSH HL 

BIT RETPOS,(IY-- OFLAGS2) 
JR Z, IN-VAR-2 

LD (ERRSP),SP 


IN-VAR-2 


M22F2 


LD HL,(WORKSP) 

CALL REMOVE-FP 

LD (IY+OERRNR),$FF 
CALL EDITOR 

RES INTPT,(IY+OFLAGS) 
CALL IN-ASSIGN 

JR IN-VAR-4 


IN-VAR-3 


M2308 


CALL EDITOR 


IN-VAR-4 


M230B 
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LD (IY+(OKCUR+1)),00 
CALL IN-CHAN-K 

JR NZ, IN-VAR-5 

CALL ED-COPY 

LD BC,(ECHOE) 

CALL CL-SET 


Make required number of bytes available. 
Put a carriage return in the last location. 
Test bit 6 of the C register 

and jump forward if 

only one byte was required. 


Put double-quote in first and 
second locations. 


Save cursor position. 
Jump forward if INPUT LINE. 


Save current values of CH_ADD 
and ERRSP to machine stack. 


Set ‘return point’ for errors. 


Change the error stack pointer if retype 
possible after syntax error is possible. 


Set HL to the start of the INPUT line 

and remove and floating-point ‘slugs’. 
Signal ‘no error yet’. 

Get the input and set FLAGS to check 
syntax. Check input for errors; jump if ok, 
return to IN-VAR-1 if not. 


Get a ‘LINE’. 


Reset the cursor address. 
Jump if using channel other than ‘K’. 


Copy line to display and 
point ECHOE to current position in lower screen. 
Set system variables. 


IN-VAR-5 
М231Е LDHL,FLAGX 
RES INPLN,(HL) 
BIT LINPLN,(HL) 
RES LINPLN,(HL) 
JR NZ, IN-VAR-6 
POP HL 
POP HL 
LD (ERRSP),HL 
POP HL 
LD (X_PTR),HL 
SET INTPT,(IY+OFLAGS) 
CALL IN-ASSIGN 
LD HL,(X_PTR) 
LD (IY+(OXPTR+1)),00 
LD (CH_ADD),HL 
JR IN-NEXT-2 


IN-VAR-6 

M2345 LD HL,(STKBOT) 
LD DE,(WORKSP) 
SCF 
SBC HL,DE 
LD B,H 
LD C,L 
CALL STK-ST-$ 
CALL LET 
JR IN-NEXT-2 


IN-NEXT-1 
M2359 CALL PR-ITEM-1 


IN-NEXT-2 

M235C CALL PR-POSN-1 
JP Z, IN-ITEM-1 
RET 
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Put FLAGX in HL. 

Signal ‘edit mode’. 

Jump forward if handling an 
INPUT LINE. 


Drop the address for IN-VAR-1. 
Reset ERRSP to its 

original address. 

Save the original CH_ADD address 
in X_PTR. 

Set syntax/run flag to run and 
make the assignment. 

Restore the original address 

to CH_ADD and clear X_PTR. 


Jump forward to see if there's more. 


Get the length of the LINE in 
workspace. 


DE points to start and BC 

holds the length. 

Stack the parameters and 

assign the value to the variable. 
Jump forward to see if there's more. 


Handle any print items. 


Handle any print position controllers. 
Go around the loop again if there is 
more to handle, else return. 


In-Assign Subroutine 


Called twice for each INPUT value. Once with the syntax/run flag reset (syntax) and once 


with it set (run). 


IN-ASSIGN 

M2363 LD HL,(WORKSP) 
LD (CH_ADD),HL 
RST $18 
CP $E2 
JR Z, IN-STOP 
LD A,(FLAGX) 
CALL VAL-FET-2 


Set CH_ADD to point to the first 
location in the workspace and 
get the current character. 

Is it STOP? 

Yes, exit out. 

Otherwise, assign the value 

to the variable. 
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RST $18 
CP $0D 
RET Z 


REPORT-C 
RST $08 
DEFB $0B 


IN-STOP 
M237A CALL SYNTAX-Z 
RETZ 


REPORT-H (ERRH) 


RST $08 
DEFB $10 
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Get current character. 
Is it a carriage return? 
Yes, return. 


Error: Nonsense in BASIC. 


Return if syntax checking but no error message. 


Error: STOP in INPUT. 


IN-CHAN-K Subroutine 
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Returns with the zero flag reset only if channel 'K' is being used. 


IN-CHAN-K (NOTKBQ) 
M2380 LD HL, (CURCHL) 
INC HL 
INC HL 
INC HL 
INC HL 
LD A, (HL) 

CP $4B 
RET 


Color Item Routines 


Get the base address of the 
channel information for the 
current channel and compare 
the channel code to the 
character 'K'. 


These routines handle embedded color item and the color system variable. Embedded 
color items are handled by calling PRINT-OUT. The entry point is CO-TEMP-2. 


CO-TEMP-1 
M238B RST $20 


CO-TEMP-1 (GR_COL) 
M238C CALL CO-TEMP-3 


RETC 

RST $18 

CP $2C 

JR Z, CO-TEMP-1 
CP $3B 

JR Z, CO-TEMP-1 
JP REPORT-C 


CO-TEMP-3 
M239C CP $D9 


CO-TEMP-4 (COLITM) 
M23A6 SUB $C9 


PUSH AF 
CALL EXPT-1NUM 


CALL UNSTACK-Z 


Get next character. 


Jump forward to check if the code is a 
temporary, embedded color. Return carry 
set if is not a color item. 

Get current character. 

Jump back if it is a comma 


or semi-colon. 


Otherwise, there's been an error. 


Return with the carry flag 

if the code is not in the range of 
$D9 - $DE (INK to OVER). 
Complement carry flag. 


Save the color item code while 
getting the next character. 


Reduce the token range from $D9-$DE 

to control characters ($10-$10). 

Save the control character to the stack. 
Move the parameter to the calculator stack. 
Get control character back. 


If syntax is being checked, return. 
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PUSH AF Save control character; move 
CALL FIND-INT1 parameter to D. 
LD D,A 
POP AF Get control character back. 
RST $10 Print control character. 
LD A,D Get the parameter 
RST $10 and print it, too. 
RET 
TV_COL 


System color variables (ATTR-T, MASK-T & P-FLAG) are updated as required. On 
entry the control character code is in A and the parameter is in D. All changes are to the 
‘temporary’ system variables. 


CO-TEMP-5 (CO-TEMPS) 


M23BB SUB $11 Reduce the range and 
ADC A,$00 jump forward for INK and PAPER. 
JR Z, CO-TEMP-7 
SUB $02 Reduce again and jump forward 
ADC A,$00 for FLASH and BRIGHT 


JR Z, CO-TEMP-C 


Color control code is now $01 (INVERSE) or $02 (OVER) and PFLAG will be updated 
accordingly. 


CP $01 
LD A,D 


LD B, $01 
JR NZ,CO-TEMP-6 


RLCA 
RLCA 


LD B,$04 


CO-TEMP-6 

M23D2 ОСА 
LD A,D 
CP $02 


JR NC,REPORT-K 


LD A,C 


LD HL,PFLAG 
JR CO-CHANGE 


CO-TEMP-7 (COLOR) 


Prepare to jump with OVER. 

Get the parameter. 

Set the mask for OVER. 

Jump. 

Bit 2 of A needs to be reset for 
INVERSE О and set for INVERSE 1. 
Mask to set the bit. 


Save A register. 

Correct range for INVERSE and OVER 

is only 0-1. 

Not in range, report error. 

Restore A. 

Get PFLAG. 

Exit via CO-CHANGE and use B as mask 
for PFLAG. 


PAPER and INK are handled here. Carry flag is set on entry for INK. 


M23DE LDA,D 


LD B,$07 
JR C,CO-TEMP-8 


RLCA 
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Get the parameter. 

Mask for INK. 

Jump forward to handle INK. 
Multiply the parameter for 


RLCA 
RLCA 
LD B,$38 


CO-TEMP-8 


M23E8 


LD СА 
LD A,D 
CP $0A 
JR C,REPORT-K 


REPORT-K 
M23EE RST $08 


DEFB $13 


CO-TEMP-9 


M23F0 


LD HL,ATTRT 

CP $08 

JR C,CO-TEMP-B 
LD A,(HL) 

JR Z,CO-TEMP-A 


AND $24 
JR Z,CO-TEMP-A 
LD A,B 


CO-TEMP-A 


M2401 


LD СА 


CO-TEMP-B 
Mask (B) and value (C) are used to change ATTRT. 


M2402 


LDA,C 
CALL CO-CHANGE 
LD A,$07 


SBC A,A 


SBC A,A 
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PAPER by eight. 


Mask for PAPER. 


Save the parameter in C. 
Get the parameter. 
Only allow for PAPER/INK (range 0-9). 


Error: Invalid color. 


Prepare to alter ATTRT, MASKT and PFLAG. 
Jump forward for PAPER/INK 0-5, 7. 


Get the current value of ATTRT and use 
with PAPER/INK 8. 

For PAPER/INK 9, the colors have to be 
black and white. 


Jump for black PAPER/INK. 
Continue for white PAPER/INK. 


Move value to C. 


Move the value to A. 

Change ATTRT. 

Bits of MASKT are set only when using 
PAPER/IN 8 or 9. 


Change MASKT. 

Create the appropriate mask in B 
in order to change bits 4 and 6 
as necessary. 


Bits of PFLAG are only set when using 


PAPER/INK 9. 
Continue into CO-CHANGE to update PFLAG. 
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CO-CHANGE Subroutine 


This subroutine applies a masked version of A to a system variable. The B register holds a 


mask that shows which bits are to be ‘copied оуег from A to (HL). 


CO-CHANGE 
M2416 ХОК (HL) 
AND B 


CO-TEMP-C (HIFLSH) 


The bits, specified by the mask in B, 
are changed in the value and the 
result goes to the system variable. 


Move to the next system variable. 
Return with the mask in A. 


This routine handles BRIGHT and FLASH. 


M241D SBC A,A 
LD A,D 
RRCA 
LD B,$80 
JR NZ, CO-TEMP-D 
RRCA 
LD B,$40 


CO-TEMP-D 
M2427 LDCA 
LD A,D 
CP $08 
JR Z, CO-TEMP-E 
CP $02 
JR NC,REPORT-K 


CO-TEMP-E 
M2431 LDA,C 


LD HL,ATTRT 
CALL CO-CHANGE 


JR CO-CHANGE 
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Zero flag is set for BRIGHT. 
Get the parameter. 

Rotate it to the right. 

Mask for FLASH. 

Jump forward for FLASH. 
Rotate again to prepare 
mask for BRIGHT. 


Save the value to C. 
Get the parameter and test its range; 
only 0, 1 and 8 are allowed. 


Not an allowed value. 


Get the value. 

Put address of ATTRT in HL then 

change the system variable. 

Get the value again, this time for MASK-T. 
Bit set for FLASH/BRIGHT 8 (bit 3) is 
moved to bit 7 (for FLASH) or bit 6 

(for BRIGHT). 

Exit via CO-CHANGE. 


HOME ROM 


BORDER Command Routine 


BORDER is used with OUT to alter the color of the border. Parameter is saved in the 
system variable BORDCR. 


BORDER 
M243E CALL FIND-INT1 Get the parameter and 
CP $08 test its range. 
JR NC,REPORT-K 
OUT ($FE),A OUT instruction is used to set border color. 
RLCA Multiply the parameter by 8. 
RLCA 
RLCA 
BIT5,A If the border color is a light color, then 
JR NZ,BORDER-1 set the INK color in the editing area to black. 
XOR $07 Change the INK color. 
BORDER-1 
M2450 LD (BORDCR),A Set the system variable and 
RET return. 


RESET Command Routine 


In theory, this would reset the computer. In practice, it's essentially commented out. 
RESET * pulls some characters and then peters out. RESET # checks for a valid channel 
number but does not actually reset it. And a plain RESET does nothing. 


Wes Brzozowski states this section “would have CLOSEd all 16 streams & rebuilt the 
SYSCON table after the execution of the BASIC command RESET *. The rebuilt table 
would have been a ‘cold reset’, using the EXROM routine BLDSCT.” 


RESET (RSET) 
M2454 RST $18 Get current character 
CP $2A Is it *? 
JR NZ, CHK-# No, check to see if it's a channel reset. 


CALL NEXT-CHAR 
CALL CHECK-END 
RET 


RESET-STREAMS 

Would have closed all 16 streams and rebuilt the SYSCON table after execution “RESET 
ж" in BASIC. The rebuilt table would have been a "cold reset," using the EXROM routine 
BLDSCT. 


M2460 LDA,$10 Value for 16 streams. 
LD HL,CH_O Start at channel 0. 
DO-STREAMS 
M2465 САШ RESTORE-STREAM Reset the stream 
INC HL Increment the channel pointer. 
INC HL 
DECA Decrement the channel counter. 
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JR NZ, DO-STREAMS 
LD HL, $09F4 

PUSH HL 

LD B, $FE 


RESET-EXBNK 

M2473 LD C,$88 
PUSH BC 
LD BC,$0000 
PUSH BC 
PUSH BC 
CALL CALL BANK 
RET 


CHK-# 

M247F CP $23 
JR 2, GET-PARAM 
CALL CHECK-END 
RET 


RESET-MODE 


Would have performed a "warm reset" of the SYSCON table after the BASIC command 


If not zero, loop back around. 


Set up to reset the expansion 
bus banks. 


Is it a #? 
Yes, go look for the parameters. 
No, see if we’re at the end of the line. 


RESET. This would have used the EXROM routine RESET-SYSCONF. 


M2487 LD HL,$0C4C 
PUSH HL 
LD BC,$FEFE 
PUSH BC 
LD BC,$0000 
PUSH BC 
PUSH BC 
CALL CALL_BANK 
RET 


Set up parameters to perform 
a warm reset. 


Reset Parameters Subroutine 


GET-PARAM 

M2498  RST $20 
CALL EXPT-1NUM 
CALL CHECK-END 
CALL FIND-INT1 
CP $11 
JR NC, REPORT-O 
AND A 
JP M, REPORT-O 
ADD A,A 
ADD A,$16 
LD ЦА 
LD H,$5C 
LD E,(HL) 
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Get next character 
Make sure it’s a number. 
Are we at the end of the line? 
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INC HL 

LD D,(HL) 

LD A,D 

ORE 

JR NZ, SKIP-ERR 


REPORT-O 
M24B7  RST $08 Error: Invalid stream. 
DEFB $17 


SKIP-ERR 

M24B9 LDA,D 
CP $80 
RETC 
JP REPORT-J 


EXPBNK-RESET 
Would have run expansion bank code upon execution of the BASIC command "RESET # 
stream". 


M24CO SUB $80 
LD D,A 
LD DE, SYSCON) 
ADD HL,DE 
INC HL 
LD B,(HL) 
LD D,$00 
LD E,$12 
ADD HL,DE 
PUSH HL 
JR RESET-EXBNK 


New Device Routines 


These routines were intended to support devices attached to the expansion bank, like 
disk drives. Each device would have had its own device code. The code checks to see if 
it's an extended save, load, verify or merge command, all of which would have an asterisk 
(*) between the command and the string with the device code, options and file name. 


The Third Party Software Guide listed a number of potential devices, including a modem, 
stringy floppy, floppy disk, hard disk, RS232 interface, Centronics (parallel) printer 
interface, 80 column printer, local area network, and RAM, in addition to the printer, 
keyboard and screen. 


These routines call XPASSING, in EXROM, which would have passed the information 
along to the device. 
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NEWDEV 
Vector into save, load, verify and merge routine in EXROM. 
М2402 RST $18 Get current character. 
CP '*' s it an asterisk? The asterisk is used to leverage 
disk commands. 
JP NZ, DOSAVE No, save the program to tape. 
RST $20 Get next character. 
CALL EXPT-EXP Check if the character was a string. 
GP s ita comma? 
JP NZ, REPORT-C No, report BAD BASIC. 
CALL SYNTAX-Z Check if interpreting. 
JR NZ, CALL-REP-J Yes, jump forward (invalid IO dev). 
CALL SKIPIT No, skip the rest of the line. 
CALL CHECK-END 
CALL-REP-J 
M24EC ЈК КЕРОКТ-Ј This is probably placeholder; іп a fully- 


debugged and complete ROM, execution 
would continue to the routine below. 


DEVICE-COMMAND 

This code is never called. If the call to REPORT-J above this were replaced with a NOP, 
execution would continue here, picking up string parameters and eventually invoking the 
NEW-DEV-SAVE and NEW-DEV-LOAD routines. 


Would have passed the information in an extended LOAD or SAVE command (ie, LOAD * 
"D" list of information) onto the stack, and then CALLed the NEW-DEV-SAVE or NEW- 
DEV-LOAD routine, perhaps for a disk or microdrive, in an expansion bank. This would 
have CALLed the routine PASSEM, which is also never used. This is fortunate, because it 
tries to CALL an EXROM routine with a mislinked address, and also has a RET command 
missing, following a CALL at M25DE. 


M24EE CALL STK-FETCH 
DEC BC 
LD A,B 
ORC 
JR NZ,REPORT-J 
LD A,(DE) 
AND $DF 
LD СА 
CALL SRCHSC 
JP NC,REPORT-J 
PUSH HL 
LD DE,$0014 
ADD HL,DE 
LD A,(HL) 
BIT 1,A 
JP Z, REPORT-J 
POP HL 
EX DE,HL 
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CALL PASSEM 

EX DE,HL 

LD A,(TADDR) 

AND A 

CP $00 

JR C,NEW-DEV-SAVE 
JR Z,NEW-DEV-LOAD 
ADD A,$D4 

LD СА 


EXPBNK-DEV 


Routine for handling devices attached via expansion bank. 


M251E PUSH BC 


LD E,$88 

LD BC,$000C 
ADD HL,BC 

LD C,(HL) 

INC HL 

LD B,(HL) 

PUSH BC 

PUSH DE 

LD HL,(STKEND) 
DEC HL 

LD C,(HL) 

INC C 

LD (STKEND),HL 
LD B,$00 

PUSH BC 

LD BC,$0000 
PUSH BC 

CALL CALL_BANK call bank 
RET 


NEW-DEV-SAVE 
New device save. Routine to support SAVE for devices not defined in ROM. 


M253F LDC,$F8 Code for SAVE. 
JR EXPBNK-DEV Jump to routine for handling expansion bank 
devices. 


NEW-DEV-LOAD 
New device load. Routine to support LOAD from devices not defined in ROM. 


M2543 LD C,$EF Code for LOAD. 
JR EXPBNK-DEV Jump to routine for handling expansion bank 
devices. 
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DOSAVE 
Puts the address of SAVE-LOAD-VERIFY-MERGE (in EXROM) in to BC, checks whether 
display file 2 is active, and invokes the routine via the function dispatcher. 


M2547 POP AF 


LD BC, $01AB SLVM address in EXROM 
PUSH BC 
LD BC,$FEFE dock bank, chunk 0 active 
PUSH BC 
LD BC,$0000 no in or out params 
PUSH BC 
PUSH BC 
LD A,(VIDMOD) Determine where the function 
AND А dispatcher is. 
JR NZ,DOSAVE-DF2 Has been moved to high memory, so 
call there. 

CALL CALL_BANK CALL_BANK 

CK-END 

M255E САШ CHECK-END Is this the end of the line? 
RET 

DOSAVE-DF2 

Call SLVM via the function dispatcher in high memory. 

M2562 САШ CALL_BANK-HI CALL_BANK when DF2 active 
JR CK-END 

REPORT-J 

M2567 RST $08 Error: Invalid IO device. 
DEFB $12 

SKIPIT 


Skip the rest of a line. Get characters until a newline ($0D), a colon (:) or quote mark is 
found. 


SKIPIT 
M2569 LD A,(ARSFLG) Reset AROS string quote flag. 
RES АКО5ОТЕ,А 
LD (ARSFLG),A 
PUSH BC Briefly save BC. 
RST $18 Get current character. 
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SKIPIT-L 
Loop until the end of a sub-line, end of line or quote is found. 
M2573 СР $22 jump if a quote 
JR Z, SKPT-NOT-EOL 
CPs jump if colon (sub-line marker) 
JR Z, SKPT-NOT-EOL 
СР 500 jump if newline 
JR Z, SKPT-NOT-EOL 
RST $20 Get next character 
JR SKIPIT-L and loop back around 
SKPT-NOT-EOL 
M2582 СР" Jump if not end of a sub-line. 
JR NZ, SKPT-FP-CHK 
LD A,(ARSFLG) Jump if still in a string literal 
BIT AROSOTE,A delimited by quote marks. 


JR NZ, SKPT-NEXTCHAR 


SKPT-FP-CHK 
Look back as many as five characters to determine whether or not the quote, :, or newline 
are actually components of a floating point number 


M258D PUSH HL Save current character pointer. 
LD B,$05 Set up to look for "number slug" 
SFP-LOOP 
M2590 DEC HL Point back. 
LD A,(HL) 
CP $0E Look back 5 characters to determine 
JR Z, SKPT-RESTHL if the character was part of a 
DJNZ SFP-LOOP floating point number. 
POP HL Restore the character pointer. 
RST $18 Get current character. 
CP $22 Jump if not a quote. 


JR NZ, SKPT-RETURN 


SKPT-QUOTE 

at this point we have found a quote in a literal string. we check the quote flag to 
determine whether this is the first or second quote found. if the first, set the quote flag, 
else reset it 


M259E LD A,(ARSFLG) Jump to reset the 
BIT AROSOTE,A AROS quote flag. 
JR NZ, RES-AROSOTE 
SET AROSOTE,A No previous quote, so 
LD (ARSFLG),A set the flag and move on 
JR SKPT-NEXTCHAR to the next character. 
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RES-AROSOTE 

M25AC RES AROSOTE,A 
LD (ARSFLG),A 
JR SKPT-NEXTCHAR 


SKPT-RETURN 
M25B3 POP BC 
RET 


SKPT-RESTHL 
M25B5 POP HL 
SKPT-NEXTCHAR 


М25В6  RST $20 
JR SKIPIT-L 


PASSEM 


Reset the AROS quote flag 
land move on. 


Restore BC. 
Return to caller. HL and CH_ADD point to the 
next character to be interpreted. 


restore the character pointer 


Get next character. 
Back around for more characters. 


Pass data to an expansion bank, via PASSING in EXROM. 


M25B9 LD BC,$FEFE 
CALL BANK_ENABLE 
CALL XPASSING 


LD BC,$FFOO 
CALL BANK_ENABLE 


CAT Command 


Enable the EXROM for chunk 0. 


Mislinked address (%0Ғ09). This is in the middle of 
an instruction. Landing at this address would 
result in LD (BC),A, followed by a jump to OUT- 
CODE, which would (eventually) send what in A to 
the selected expansion bank. This address should 
be $0F43. 

Enable the home ROM in all chunks. 


CAT 
M25C8 LD B,$CF 
JR CAT-ETC 


FORMAT Command 


Put "CAT" token in B. 
Jump ahead to complete. 


FORMAT 
M25CC LD B,$DO 
JR CAT-ETC 


MOVE Command 


Put "FORMAT" token in B. 
Jump ahead to complete. 


MOVE 
M25DO LD B,$D1 
JR CAT-ETC 
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Put "MOVE" token in B. 
Jump ahead to complete. 
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ERASE Command 


ERASE 
M25D4 LD B,$D2 Put "ERASE" token in B then fall through to CAT- 
ETC. 
CAT-ETC 
M25D6 CALL SYNTAX-Z Check if interpreting. 
JR NZ, REPORT-J Goes to error routine but would have gone 
to the routine that passed parameters. 
CALL SKIPIT Skip the rest of the line. 
CALL CHECK-END Returns here if interpreting. 
REPORT-J 
M25E1 JP REPORT-J Error - INVALID IO DEVICE. Removing this 


would allow the following routine to work and 
complete these extended commands. 


Pass Disk Parameters 


This is part of the code that would have passed parameters from the BAS1C commands 
CAT, FORMAT, MOVE, and ERASE. 


The blocking JP at M25E1, is where Timex deleted code to make room in the HOME 
КОМ. 


М25Е4 LD BC,$000C offset into jump table 
CALL_BANK with HL pointing to a jump table, BC containing an offset into it and DE 


containing the bank and horizontal select respectively. the top of the FP stack at 
(STKEND) contains a byte with the number of parameters out expected 


ADD HL,BC 

LD C,(HL) Iget jump address 

INC HL | 

LD B,(HL) 

PUSH BC push address onto stack 
PUSH DE push horiz sel and bank 

LD HL,(STKEND) 

DEC HL Iget the number of params out 
LD C,(HL) тот CALL BANK from the 
INC C Ifree space 

LD (STKEND),HL 

LD B,$00 number of parameters out 
PUSH BC 

LD BC,$0000 no parameters in 


1 "The Mystery of the Missing 253: Conclusion." 
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PUSH BC 
CALL CALL_BANK CALL_BANK 
RET 


REPORT-J 


RST $08 Error: Invalid IO device. 
DEFB $12 


Pixel Address Subroutine 


Screen address calculator. Called by POINT subroutine and PLOT command routine. 
Entered with the coordinates of a pixel in BC and returns with address of the display file 
byte which contains that pixel in HL holding the and position of the pixel within the byte 
in A (zero for left-hand = MS end, one for right-hand = LS end). 


PIXEL-ADD (SCRMBL) 


M2603 LDA,$AF Test that the y coordinate (in B) is not 
SUB B greater than 175. 
JP C, REPORT-B 
LD B,A B now contains 175 minus y. 
ANDA A holds B. 
RRA Shift A to the right, dropping bit 0. 
SCF 
RRA Shift again, A is 10b7bó6b5b4b3b2. 
ANDA 
RRA A is 010b7b6b5b4b3. 
XORB 
AND $F8 Finally 010b7b6b2b150, so that Н 
XORB becomes 64+8*1МТ(В/64) + B (mod 8), the 
LDH,A high byte of the pixel address. 
LD A,C C contains X. 
RLCA A starts as с7сбс5с4с3с2с1с0. 
RLCA 
RLCA And is now с2с1с0с7сбс5с4с3. 
XORB 
AND $C7 
XORB Now c2c1b5b4b3cbc4c3. 
RLCA 
RLCA Finally b5b4b3c7c6c5c4c3, so that L 
LD LA becomes 32*INT(B(mod64)/8)+INT(x/8), 
LD A,C the low byte. 
AND $07 A holds x(mod8). The pixel is bit 7 within 
RET the byte. 


Point Subroutine 


Called by the POINT function in SCANNING. Entered with the coordinates of a pixel on 
the calculator stack and returns a last value of 1 if that pixel is ink color or O if it is paper 
color. 
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POINT-SUB (F_PNT) 
M2624 CALL STK-TO-BC 
CALL PIXEL-ADD 
LD BA 
INC B 
LD A,(HL) 


POINT-LP 
M262D RLCA 


DJNZ POINT-LP 
AND $01 
JP STACK-A 


PLOT Command Routine 
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Y coordinate to B, X to C. 

Pixel address in HL. 

B will count A+1 loops to get the desired 
bit of HL to location 0. 


Bit 1 for INK, 0 for PAPER. 
Put A on calculator stack. 


This routine consists of a main subroutine plus one line to call it and one line to exit from 
it. The main routine is used twice by CIRCLE and the subroutine is called by DRAW. The 
routine is entered with the coordinates of a pixel on the calculator stack. It finds the 
address of that pixel and plots it, taking account of the status of INVERSE and OVER held 


in the P-FLAG. 


PLOT 

M2635 САШ STK-TO-BC 
CALL PLOT-SUB 
JP TEMPS 


PLOT-SUB (PLOTBC) 
M263E LD (XCOORD),BC 
CALL PIXEL-ADD 
LD BA 
INC B 
LD A,SFE 


PLOT-LOOP 

M2649 RRCA 
DJNZ PLOT-LOOP 
LD BA 
LD A,(HL) 
LD C,(IY+OPFLAG) 
BIT XOR_CH,C 
JR NZ, PL-TST-IN 
AND B 


PL-TST-IN 
M2656 BIT INV_CH,C 
JR NZ, PLOT-END 


XOR B 
CPL 


Y coordinate to B, X to C. 
Call the subroutine. 
Exit, setting temporary colors. 


Set the system variable. 

Pixel address to HL. 

B will count A+1 loops to get a zero 
in the correct place in A. 

Enter the zero. 


Line up the pixel bit position in the byte. 


Copy to B. 

Put pixel-byte in A. 

Get PFLAG and 

test for OVER. 

Jump if OVER 1. 

OVER 0; make the pixel zero. 


Test for INVERSE. 

INVERSE 1 leaves the pixel as it was 
(OVER 1) or zero (OVER О). 

INVERSE 0 set the pixel to its complement 
(OVER 1) or 1 (OVER 0). 
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PLOT-END 
M265C LD (HL),A Byte is saved; other bits are unchanged. 
JP PO-ATTR 


STK-TO-BC Subroutine 


Loads two floating point numbers into the BC register pair. It is used to pick up 
parameters in the range +00-+FF. It also obtains in DE the ‘diagonal move' values 
(+/-1,+/-1) which are used in the line drawing subroutine of DRAW. Return with X and Y in 
D and E and the sign of the numbers in B and C ($01 signifies positive, $FF signifies 
negative) 


STK-TO-BC (GET XY) 


M2660 CALL STK-TO-A Get the first parameter 
LD B,A Save the number to B. 
PUSH BC Save number (B) and the sign info (C) 
CALL STK-TO-A Get the second parameter. 
LD E,C Load the sign info into E. 
POP BC Get the first parameter back. 
LD D,C Put the first parameter sign in D. 
LD CA Put the second parameter in C. 
RET 


STK-TO-A Subroutine 


Loads the A register with the floating point number held at the top of the calculator 
stack. The number must be in the range 00-FF. 


STK-TO-A 

M266D CALL FP-TO-A Put the modulus of rounded last value in A 
JP C, REPORT-B if possible; else report error. 
LD C,$01 Put a 1 in C for positive last value. 
RETZ Return if value was positive. 
LD C,$FF Otherwise, change C to $FF (minus 1). 
RET 


CIRCLE Command Routine 


This routine draws an approximation to the circle with centre co-ordinates X and Y and 
radius Z. These numbers are rounded to the nearest integer before use. Thus Z must be 
less than 87.5, even when (X,Y) is in the centre of the screen. The method used is to draw 
a series of arcs approximated by straight lines. It is illustrated in the BASIC program in the 
appendix. The notation of that program is followed here. CIRCLE has four parts: |. Tests 
the radius. If its modulus is less than 1, just plot X,Y; Il. Calls CD-PRMS-1 at 2470-24B6, 
which is used to set the initial parameters for both CIRCLE and DRAW; IIl. Sets up the 
remaining parameters for CIRCLE, including the initial displacement for the first 'arc' (a 
straight line in fact); IV. Jumps into DRAW to use the arc-drawing loop at 2420-24FA. 
Parts i. to iii. will now be explained in turn. i. 2320-23AA. The radius, say Z', is obtained 
from the calculator stack. Its modulus Z is formed and used from now on. If Z is less than 
1, it is deleted from the stack and the point X,Y is plotted by a jump to PLOT. 


CIRCLE 
M2679 RST $18 Get current character, 
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CP $2C 


JP NZ,REPORT-C 


RST $20 


CALL EXPT-1NUM 
CALL CHECK-END 


RST $28 
DEFB $2A 
DEFB $3D 
DEFB $38 
LD A,(HL) 
CP $81 


JR NC, C-R-GRE-1 


RST $28 
DEFB $02 
DEFB $38 
JR PLOT 


C-R-GRE-1 

M2694 RST $28 
DEFB $A3 
DEFB $38 


LD (HL),$83 


RST $28 

DEFB $C5 
DEFB $02 
DEFB $38 


CALL CD-PRMS1 


PUSH BC 
RST $28 
DEFB $31 
DEFB $E1 
DEFB $04 
DEFB $38 
LD A,(HL) 
CP $80 


JR NC, C-ARC-GE1 


RST $28 
DEFB $02 
DEFB $02 
DEFB $38 
POP BC 
JP PLOT 


C-ARC-GE1 

M26B3 RST $28 
DEFB $C2 
DEFB $01 
DEFB $CO 
DEFB $02 
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test for comma. 

Error - BAD BASIC 

Get next character (radius). 

Put radius on calculator stack. 

Move to next statement if checking syntax. 
Call calculator. 


QUIT 

Get exponent of radius. 

Is it less than 1? 

If not, jump ahead. 

Call calculator and delete from stack. 
DROP 

QUIT 

Just plot point X, Y. 


Call calculator. 

CONST 3 (PI/2) 

Increase exponent to 83, changing 
РІ/2 into 2*PI. 


T-» MEM 5 
DROP 
QUIT 


Call calculator. 


Call calculator. 
T-» MEM2 
SWAP 

T-» МЕМО 
DROP 
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DEFB $03 SUB 

DEFB $01 SWAP 
DEFB $EO MEM 0 -> T 
DEFB $0F ADD 

DEFB $CO T -> MEMO 
DEFB $01 SWAP 
DEFB $31 DUP 

DEFB $EO MEM 0 -> T 
DEFB $01 SWAP 
DEFB $31 DUP 

DEFB $EO MEM 0 -> T 
DEFB $A0 CONST 0 (0) 
DEFB $C1 T-» MEM 1 
DEFB $02 DROP 
DEFB $38 QUIT 


INC (IY+(MEM2-Y)) 
CALL FIND-INT1 
LD ЦА 

PUSH HL 

CALL FIND-INT1 
POP HL 

LD НА 

LD (XCOORD),HL 
POP BC 

JP DRW-STEPS 


(The stack now holds X+Z, Y - Z*SIN (PI/A), Y - Z*SIN (РІ/А), X+Z). 


DRAW Command Routine 


Routine is entered with the coordinates of a point in COORDS. If only two parameters X, 
Y are given with the DRAW command, it draws an approximation to a straight line from 
the point XO, YO to ХО-Х, YO+Y. If a third parameter G is given, it draws an approximation 
to a circular arc from XO, YO to ХО+Х, YO+Y turning anti-clockwise through an angle G 
radians. 


The routine has four parts: 

1. Just draws a line if only 2 parameters are given or if the diameter of the implied circle 
is less than 1; 

Calls CD-PRMS1 at 247D-24B6 to set the first parameters; 

Sets up the remaining parameters, including the initial displacements for the first arc; 
Enters the arc-drawing loop and draws the arc as a series of smaller arcs 
approximated by straight lines, calling the line-drawing subroutine at 24B7-24FA as 
necessary. 

Two subroutines, CD-PRMS1 and DRAW-LINE, follow the main routine. The above 4 parts 
of the main routine will now be treated in turn. 


PON 


Part 1 

If there are only 2 parameters, a jump is made to LINE-DRAW at 2477. A line is also 
drawn if the quantity Z=(ABS X + ABS Y)/ABS SIN(G/2) is less than 1. Z lies between 1 
and 1.5 times the diameter of the implied circle. In this section mem-O is set to SIN (G/2), 
mem-1 to Y, and mem-5 to G. 
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DRAW 

M26DB RST $18 
CP $2C 
JR 2, DR-3-PRMS 
CALL CHECK-END 
JP LINE-DRAW 


DR-3-PRMS 
M26E6 RST $20 
CALL EXPT-1NUM 
CALL CHECK-END 
RST $28 
DEFB $C5 
DEFB $A2 
DEFB $04 
DEFB $1F 
DEFB $31 
DEFB $30 
DEFB $30 
DEFB $00,$06 
DEFB $02 
DEFB $38 
JP LINE-DRAW 


DR-SIN-NZ 

M26FC DEFB +CO0,st-mem-0 
DEFB +02,delete 
DEFB +C1,st-mem-1 
DEFB +02,delete 
DEFB +31,duplicate 
DEFB +2A,abs 
DEFB +E1,get-mem-1 
DEFB +01,exchange 
DEFB +E1,get-mem-1 
DEFB +2A,abs 
DEFB +0F,addition 
DEFB +E0,get-mem-0 
DEFB +05,division 
DEFB +2A,abs 
DEFB +E0,get-mem-0 
DEFB +01,exchange 
DEFB +3D,re-stack 
DEFB +38,end-calc 
LD A,(HL) 
CP $81 
JR МС, DR-PRMS 
RST $28 
DEFB $02 
DEFB $02 


170 


Get current character. 

Is ita comma? 

Yes, jump ahead. 

Move to next statement if checking syntax. 
Just draw a line. 


Get next character (the angle). 

Move the angle to the calculator stack. 
Move to next statement if checking syntax. 
Call calculator. 

T-> MEM 5 

CONST 1 (0.5) 

TIMES 

SIN 

DUP 

NOT 

NOT 

IFJUMP 26FC 

DROP 

QUIT 

Line XO, YO to ХО+Х, YO+Y 


(SIN (G/2) is copied to mem-0) 
X, Y are now on the stack. 
(Y is copied to mem-1). 


X 

X, X 

X, X' (X' = ABS X) 

X, X', Y 

X, Y, X' 

X, Y, X', Y 

X, Y, X', Y (Y' = ABS Y) 
X, Y, X'+Y' 


X, Y, X'+Y', SIN (G/2) 

X, Y, (X - Y'/SIN (G/2)=Z', say 
X, Y, Z (Z = ABS Z) 

X, Y, Z, SIN (G/2) 

X, Y, SIN (G/2), Z 

(Z is re-stacked to make sure 
that its exponent is available). 
Get exponent of Z. 


Call calculator. 
DROP 
DROP 
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DEFB $38 QUIT 
JP LINE-DRAW 


Part 2 

Call CD-PRMS1. This subroutine saves in the B register the number of shorter arcs 
required for the complete arc, viz. A=4*INT (G'*SOR Z/8)+4, where G' = mod G, or 252 if 
this expression exceeds 252 (as can happen with a large chord and a small angle). So A is 
4, 8, 12, ..., up to 252. The subroutine also stores in mem-0 to mem-4 the quantities G/ 
A, SIN (G/2*A), 0, COS (G/A), SIN (G/A). 


DR-PRMS 
M271A CALL CD-PRMS1 


Part 3 

Set up the rest of the parameters as follow. The stack will hold these 4 items, reading up 
to the top: ХО+Х and YO+Y as end of last arc; then ХО and YO as beginning of first arc. 
Mem-0 will hold ХО and mem-5 YO. Mem-1 and mem-2 will hold the initial displacements 
for the first arc, U and V; and mem-3 and mem-4 will hold COS (G/A) and SIN (G/A) for 
use in the arc-drawing loop. The formulae for U and V can be explained as follows. 
Instead of stepping along the final chord, of length L, say, with displacements X and Y, we 
want to step along an initial chord (which may be longer) of length L*W, where W=SIN 
(G/2*Ay/SIN (6/2), with displacements X*W апа Y*W, but turned through an angle - (6/2 
- G/2*A), hence with true displacements: U = Y*W*SIN (G/2 - G/2*A) + X*W*COS (G/2 - 
G/2*A) Y 2 Y*W*COS (G/2 - G/2*A) - X*W*SIN (G/2 - G/2*A) These formulae can be 
checked from a diagram, using the normal expansion of COS (P - О) and SIN (P - О), 
where O = G/2 - G/2*A. 


PUSH BC 

RST $28 Call calculator. 
DEFB $02 DROP 
DEFB $E1 MEM 1 -> T 
DEFB $01 SWAP 
DEFB $05 DIV 

DEFB $C1 T-» MEM 1 
DEFB $02 DROP 
DEFB $01 SWAP 
DEFB $31 DUP 

DEFB $E1 MEM 1 -> T 
DEFB $04 TIMES 
DEFB $C2 T-» МЕМ 2 
DEFB $02 DROP 
DEFB $01 SWAP 
DEFB $31 DUP 

DEFB $E1 MEM 1 -> T 
DEFB $04 TIMES 
DEFB $E2 MEM 2 -> T 
DEFB $E5 MEM 5 -> T 
DEFB $ЕО MEM 0 -> T 
DEFB $03 SUB 

DEFB $A2 CONST 1 (0.5) 
DEFB $04 TIMES 
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DEFB $31 DUP 

DEFB $1F SIN 

DEFB $C5 T-> MEM 5 
DEFB $02 DROP 
DEFB $20 COS 

DEFB $CO T -» MEM O 
DEFB $02 DROP 
DEFB $C2 T-» MEM 2 
DEFB $02 DROP 
DEFB $C1 T -» MEM 1 
DEFB $E5 МЕМ 5 -> T 
DEFB $04 TIMES 
DEFB $EO MEM 0 -> T 
DEFB $E2 MEM 2 -> T 
DEFB $04 TIMES 
DEFB $0F ADD 

DEFB $E1 MEM 1 -> T 
DEFB $01 SWAP 
DEFB $C1 T-» MEM 1 
DEFB $02 DROP 
DEFB $EO MEM 0 -> T 
DEFB $04 TIMES 
DEFB $E2 MEM 2 -> T 
DEFB %Е5 MEM 5 -> T 
DEFB $04 TIMES 
DEFB $03 SUB 

DEFB $C2 T-» МЕМ 2 
DEFB $2A ABS 

DEFB $E1 MEM 1 -> T 
DEFB $2A ABS 

DEFB $0F ADD 

DEFB $02 DROP 
DEFB $38 QUIT 

LD A,(DE) 

CP $81 

POP BC 

JP C, LINE-DRAW 

PUSH BC 

RST $28 Call calculator. 
DEFB $01 SWAP 
DEFB $38 QUIT 

LD A,(XCOORD) 

CALL STACK-A Put A on calculator stack. 
RST $28 Call calculator. 
DEFB $CO T-» MEM 0 
DEFB $0F ADD 

DEFB $01 SWAP 
DEFB $38 QUIT 

LD A, YCOORD) 
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CALL STACK-A Put A on calculator stack. 
RST $28 Call calculator. 

DEFB $C5 T-> MEM 5 

DEFB $0F ADD 

DEFB $EO MEM 0 -> T 

DEFB $E5 MEM 5 -> T 

DEFB $38 QUIT 

POP BC 


Part 4 

This is the arc-drawing loop. This is entered at 2439 with the co-ordinates of the starting 
point on top of the stack, and the initial displacements for the first arc in mem-1 and 
mem-2. It uses simple trigonometry to ensure that all subsequent arcs will be drawn to 
points that lie on the same circle as the first two, subtending the same angle at the 
centre. It can be shown that if 2 points X1, Y1 and X2, Y2 lie on a circle and subtend an 
angle N at the centre, which is also the origin of co-ordinates, then X2 = X1*COS N - 
Y1*SIN М, and Y2 = X1*SIN N + Y1*COS N. But because the origin is here at the 
increments, say Un = Xn+1 - Xn and Vn = Yn+1 - Yn, thus achieving the desired result. 
The stack is shown below on the (n+1)th pass through the loop, as Xn and Yn are 
incremented by Un and Vn, after these are obtained from Un-1 and Vn-1. The 4 values on 
the top of the stack at 2425 are, in DRAW, reading upwards, Х0--Х, YO+Y, Xn and Yn but 
to save space these are not shown until 2439. For the initial values in CIRCLE, see the 
end of CIRCLE, above. In CIRCLE too, the angle G must be taken to be 2*PI. 


DRW-STEPS 
M2779 DECB B counts passes through the loop. 
JR Z, ARC-END Jump when B has reached zero. 
JR ARC-START Jump to loop start. 
ARC-LOOP 
M277E  RST $28 Call calculator. 
DEFB $E1 MEM 1 ->T 
DEFB $31 DUP 
DEFB $E3 MEM 3 -> T 
DEFB $04 TIMES 
DEFB $E2 MEM 2 -> T 
DEFB $E4 MEM 4 -> T 
DEFB $04 TIMES 
DEFB $03 SUB 
DEFB $C1 T -> MEM 1 
DEFB $02 DROP 
DEFB $E4 MEM 4 -> T 
DEFB $04 TIMES 
DEFB $E2 MEM 2 -> T 
DEFB $E3 MEM 3 -> T 
DEFB $04 TIMES 
DEFB $0F ADD 
DEFB $C2 Т -> MEM 2 
DEFB $02 DROP 
DEFB $38 QUIT 
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ARC-START 


M2792 


PUSH BC 

RST $28 

DEFB $CO 
DEFB $02 

DEFB $E1 

DEFB $0F 

DEFB $31 

DEFB $38 

LD A,(XCOORD) 
CALL STACK-A 
RST $28 

DEFB $03 

DEFB $EO 
DEFB $E2 

DEFB $0F 

DEFB $CO 
DEFB $01 

DEFB $EO 
DEFB $38 

LD A, YCOORD) 
CALL STACK-A 
RST $28 

DEFB $03 

DEFB $38 

CALL DRAW-LINE 
POP BC 

DJNZ ARC-LOOP 


ARC-END 


M27B8 
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RST $28 

DEFB $02 

DEFB $02 

DEFB $01 

DEFB $38 

LD A,(XCOORD) 
CALL STACK-A 
RST $28 

DEFB $03 

DEFB $01 

DEFB $38 

LD A, YCOORD) 
CALL STACK-A 
RST $28 

DEFB $03 

DEFB $38 


Save arc counter. 
Call calculator. 


Put A on calculator stack. 
Call calculator. 

SUB 

MEM 0 -> T 

MEM 2 -> T 

ADD 

T -> МЕМО 

SWAP 

MEM 0 -> T 

QUIT 


Put A on calculator stack. 
Call calculator. 

SUB 

QUIT 

Draw next 'arc'. 

Restore loop counter. 
Keep drawing more arcs. 


Call calculator. 


Put A on calculator stack. 
Call calculator. 

SUB 

SWAP 

QUIT 


Put A on calculator stack. 
Call calculator. 

SUB 

QUIT 
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LINE-DRAW 
M27D0 CALL DRAW-LINE 
JP TEMPS 


Initial Parameters Subroutine 


Called by both CIRCLE and DRAW to set their initial parameters. It is called by CIRCLE 
with X, Y and the radius Z on the top of the stack, reading upwards. It is called by DRAW 
with its own X, Y, SIN (G/2) and Z, as defined in DRAW i. above, on the top of the stack. 
In what follows the stack is only shown from Z upwards. The subroutine returns in B the 
arc-count A as explained in both CIRCLE and DRAW above, and in mem-0 to mem-5 the 
quantities G/A, SIN (G/2*A), 0, COS (G/A), SIN (G/A) and G. For a circle, G must be taken 
to be equal to 2*РІ. 


CD-PRMS1 
M27D6 RST $28 Call calculator. 
DEFB $31 DUP 
DEFB $28 ROOT 
DEFB $34,$32,$00 LITERAL 8200000000 
DEFB $01 SWAP 
DEFB $05 DIV 
DEFB $E5 MEM 5 -> T 
DEFB $01 SWAP 
DEFB $05 DIV 
DEFB $2A ABS 
DEFB $38 QUIT 
CALL FP-TO-A А1 to A from the stack, if possible. 
JR С, USE-252 If Alrounds to 256 or more, use 252. 
AND $FC 4*|INT(A1 / 4) to A. 
ADD A,$04 Add 4, giving arc-count A. 
JR NC, DRAW-SAVE Jump if still under 256. 
USE-252 
M27EE LDA,$FC Just use 252. 
DRAW-SAVE 
M27FO PUSH AF Save the arc-count. 
CALL STACK-A Put A on calculator stack. 
RST $28 Call calculator. 
DEFB $E5 MEM 5 -> T 
DEFB $01 SWAP 
DEFB $05 DIV 
DEFB $31 DUP 
DEFB $1F SIN 
DEFB $C4 Т-> MEM 4 
DEFB $02 DROP 
DEFB $31 DUP 
DEFB $A2 CONST 1 (0.5) 
DEFB $04 TIMES 
DEFB $1F SIN 
DEFB $C1 T-» МЕМ 1 
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DEFB $01 
DEFB %С0 
DEFB $02 
DEFB $31 
DEFB $04 
DEFB $31 
DEFB $0F 
DEFB $A1 
DEFB $03 
DEFB $1B 
DEFB $C3 
DEFB $02 
DEFB $38 
POP BC 
RET 


Line-Drawing Subroutine 


SWAP 

T -> MEMO 
DROP 

DUP 

TIMES 

DUP 

ADD 

CONST 1 (256) 
SUB 

NEGATE 

Т -> MEM 3 
DROP 

QUIT 

Restore arc-count to BC. 


Called by DRAW to draw an approximation to a straight line from the point ХО, YO held in 
COORDS to the point ХО+Х, YO+Y, where the increments X and Y are on the top of the 
calculator stack. Intersperses as many horizontal or vertical steps as are needed among a 
basic set of diagonal steps, using an algorithm that spaces the horizontal or vertical steps 


as evenly as possible. 


DRAW-LINE (DRAW-L) 
M2810 CALL STK-TO-BC 


DRAWLN 
M2813 ШАС 
CPB 
JR NC, DL-X-GE-Y 
LD L,C 
PUSH DE 
XOR A 
LD E,A 
JR DL-LARGER 


DL-X-GE-Y 

M281D ORC 
RET Z 
LD L,B 
LD B,C 
PUSH DE 
LD D,$00 
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ABS Y to B, ABS X to C, 
SGN Y to D, SGN X to E. 


Jump if ABS X is greater than or equal 
to ABS Y, so that the smaller goes to L, 
and the larger to H. 


Save diag step to DE. 
Insert a vertical step in to DE. 


Jump to set H. 


Return if ABS X and ABS Y are both zero. 


Smaller (ABS Y) goes to L. 

ABS X to B, for H. 

Save the diagonal step here, too. 
Horizontal step for DE. 


DL-LARGER 
M2824 LDH,B 
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Larger of ABS X, ABS Y to H. 


The algorithm starts here. The larger of ABS X and ABS Y, say H, is put into A and 
reduced to INT (H/2). The H - L horizontal or vertical steps and L diagonal steps are taken 
(where L is the smaller of ABS X and ABS Y) in this way: L is added to A; if A now equals 
or exceeds H, it is reduced by H and a diagonal step is taken; otherwise a horizontal or 
vertical step is taken. This is repeated H times (B also holds H). Note that meanwhile the 
exchange registers H' апа L' are used to hold COORDS. 


LD A,B 
RRA 


D-L-LOOP 

M2827 ADD A\L 
JR C, D-L-DIAG 
CPH 
JR C, D-L-HR-VT 


D-L-DIAG 

M282D SUBH 
LD СА 
EXX 
POP BC 
PUSH BC 
JR D-L-STEP 


D-L-HR-VT 

M2834 LDCA 
PUSH DE 
EXX 
POP BC 


D-L-STEP 
M2838 LD HL,(XCOORD) 
LD A,B 
ADD A,H 
LD B,A 
LD A,C 

INCA 

ADD А, 

JR C, D-L-RANGE 
JR Z,REPORT-B 


D-L-PLOT 
M2845 DECA 
LD СА 
CALL PLOT-SUB 
EXX 
LD A,C 


B to A as well as H. 
A starts at INT (H/2). 


L is added to A. 

If 256 or more, jump for diagonal step. 
If A is less than H, jump for horizontal 
or vertical step. 


Reduce A by H. 
Restore it to C. 
Exchange registers. 
Diag step to B'C'. 
Save it. 

Jump to take the step. 


Save A (unreduced) to C. 
Step to stack. 
Eexchange registers. 
Step to B'C'. 


Take first step: put XCOORDS to H'L'. 
Y-step from B' to A. 

Add in H'. 

Result to B'. 

Test that X step is in range. 


Add L' to C' in A, jump on 
carry for further test. 
Zero after carry means X is out of range. 


Restore true value to A. 
Value to C' for plotting. 
Plot the step. 

Restore the main registers. 
C back to A to continue.. 
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DJNZ D-L-LOOP Loop back for 8 steps. 
POP DE Clear machine stack. 
RET 
D-L-RANGE 
M2850 JRZ, D-L-PLOT Zero after carry means X is in range. 
REPORT-B 
M2852 RST $08 Error: Integer out of range. 
DEFB $0A 


Expression Evaluation 


The ZX Spectrum and TS 2068 have a comprehensive expression evaluator that 
accommodates a wide range of variable types, functions and operations. 


This part of ROM is fairly slow as all potentials alternatives are considered as the 
expression is scanned and evaluated. 


Simple strings are managed dynamically and old copies are reclaimed once they 
are redundant. As a result, there's no need for garbage collection, unlike other 
BASICs. 


Scanning Subroutine 


Produces an evaluation result of the 'next expression’. Result is returned as the ‘last value’ 
on the calculator stack. 


For a numerical result, the last value will be the actual floating point number. 


For a string result the last value will consist of a set of parameters: 

* The first of the five bytes is unspecified 

* the second and third bytes hold the address of the start of the string 
* the fourth and fifth bytes hold the length of the string. 


Bit 6 of FLAGS is set for a numeric result and reset for a string result. 


When a next expression consists of only a single operand [A, RND, A$ (4, 3 TO 7)], then 
the last value is simply the value that is obtained from evaluating the operand. 


When the next expression contains a function and an operand [CHR$ A, NOT A, SIN 1], 
the operation code of the function is stored on the machine stack until the last value of 
the operand has been calculated. This last value is then subjected to the appropriate 
operation to give a new last value. 


In the case of there being an arithmetic or logical operation to be performed [A+B, A*B, 


A=B], then both the last value of the first argument and the operation code have to be 
kept until the last value of the second argument has been found. The calculation of the 
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last value of the second argument may also involve the storing of last values and 
operation codes whilst the calculation is being performed. 


When a complex expression is evaluated [CHR$ (T+A - 26*INT ((T+A)/26)+65)], a 
hierarchy of operations to be performed is built up until the point is reached from which it 
must be dismantled to produce the final last value. 


Each operation code has associated with it an appropriate priority code and operations 
of higher priority are always performed before those of lower priority. 


The subroutine begins with the A register being set to hold the first character of the 
expression and a starting priority marker - zero - being put on the machine stack. 


SCANNING (EXPRN) 


M2854 RST $18 Get current character into A. 
LD B,$00 Starting priority marker is stacked. 
PUSH BC 


Search the scanning function table (M294C) for the code in A. If the operator or token is 
found, jump to the handler for it. Four subroutines follow; they are called by routines from 
the scanning function table. 


S-LOOP-1 

M2858 LDC,A 
LD HL, $294C Index into the scanning function 
CALL INDEXER table with the code in C. 
LD A,C Restore the code to A. 
JP NC, S-ALPHNUM Jump if item not found. 
LD B,$00 Get offset value to make 
LD C,(HL) required address and 
ADD HL,BC jump to it. 
JP (HL) 

S-OUOTE-S 


The scanning quotes subroutine checks that every string quote is matched by another 
one. 


M2868 | CALL NEXTCH Get the next character. 
INC BC Increase length count. 
CP $0D Is it a carriage return? 
JP Z, REPORT-C Report error - BAD BASIC. 
CP $22 Loop back if not quote. 
JR NZ, S-OUOTE-S 
CALL NEXTCH Get the next character. 
CP $22 Flag if it is another quote. 
RET 
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S-2-COORD 
Called by S-SCREEN$, S-ATTR, S-POINT and STICK to make sure the required two 
coordinates are given in their proper form. 


M287B  RST $20 Get next character with filtering 

СР" Is it ап open parenthesis? 

JR NZ,S-RPORT-C No, report the error. 

CALL NEXT-2NUM Put the coordinates on the calculator 

RST $18 stack and get current character. 

СР" Is it a close parenthesis? If not report error. 
S-RPORT-C 
M2886 ЈР NZ,REPORT-C Error: BAD BASIC. 


SYNTAX-Z (INTPTQ) 
Checks the interpret flag. Returns Z flag=1 if syntax checking, Z flag=0 if interpreting 
statement. 


M2889 BIT INTPT,(IYtOFLAGS) Test if interpreting or checking syntax. 
RET 


S-SCRN$-S (F_SCRN) 

Used Бу S-SCREENS$ to find the character that appears at line x, column y of the screen. 
It only searches the character set ‘pointed to' to CHARS. 

Note: This is normally the characters +20 (space) to +7F (©) although the user can alter 
CHARS to match for other characters, including user-defined graphics. 


M288E САШ STK-TO-BC Get the x and y screen coords. 
LD HL,(CHARS) Get the pointer to the character bit map table. 
LD DE,$0100 Point to the bit map. 
ADD HL,DE Point to the position in the character set. 
LD A,C 
RRCA Do some math to get 
RRCA the low byte of the 
RRCA required screen address. 
AND $E0 
XOR B 
LD E,A 
LD A,C 
AND $18 
XOR $40 
LD D,A DE now holds the screen address. 
LD B,$60 Count 96 characters. 
S-SCRN-LP 
M28A8 PUSH BC Save the count. 
PUSH DE And the screen pointer. 
PUSH HL And the character set pointer. 
LD A,(DE) Get the first row of screen character. 
XOR (HL) Match with row from character set. 
JR 7, S-SC-MTCH Jump if direct match found. 
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INCA 
JR NZ, S-SC-NXT 
DECA 


5-5С-МТСН 
M28B3 ОСА 
LD B,$07 


S-SC-ROWS 
M28B6 INC D 
INC HL 
LD A,(DE) 
XOR (HL) 
XOR C 
JR NZ, S-SCR-NXT 
DJNZ S-SC-ROWS 
POP BC 
POP BC 
POP BC 
LD A,$80 
SUB B 
LD BC,$0001 
RST $30 
LD (DE),A 
JR S-SCR-STO 


S-SCR-NEXT 

M28CC POP HL 
LD DE,$0008 
ADD HL,DE 
POP DE 
POP BC 
DJNZ S-SCRN-LP 
LD C,B 


S-SCR-STO 
M28Dó RET 


S-SATTR-S (F_ATTR) 
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Test for match with inverse character. 
Jump if direct match found. 
Restore A. 


Inverse status to C. 
B counts through the other 7 rows. 


Move DE to next row. 

Move HL to next row. 

Get the screen row. 

Match with row from ROM. 

Include inverse status. 

Jump if row fails to match. 

Jump back until all rows are done. 
Discard character set pointer. 
Discard screen pointer. 

Final count to BC. 

Last character code is set plus one. 
A now hold required code. 

One space is needed in workspace. 
Make the space. 

Put the character in it. 

Jump to stack the character. 


Restore character set pointer. 
Move it 8 bytes, to next character. 


Restore the screen pointer. 

And the counter. 

Loop back for the 96 characters. 
Stack the empty string. 


RET corrects an error in the Spectrum ROM here. 


Scanning attributes subroutine, called by S-ATTR to return the value of ATTR (x,y) 
which codes the attributes of line x, column y on the television screen. 


M28D7 CALL STK-TO-BC 

LDA,C 

RRCA 

RRCA 

RRCA 

LD СА 

AND $E0 

XOR B 


x to C, y to B. 

X is copied to A and the number 
is manipulated to to get the 
location in memory. 
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LD ЦА 
LDA,C 
AND $03 
XOR $58 

LD H,A 

LD A,(HL) 
JP STACK-A 


PI Routine 


Low byte of attribute address in L. 
More math to make the high byte. 


Which goes in H. 
Copy the attribute byte to A. 
Put A on calculator stack. 


РІ 

M28ED CALL SYNTAX-Z 
ЈК Z, PI-1 
RST $28 
DEFB $A3 
DEFB $38 

РІ-1 

M28F5 JP S-NUMERIC 


STICK Command Routine 


jump if interpreting 

Exit routine if syntax checking. 
Call calculator. 

CONST 3 (PI/2) 

QUIT 


Checks to see if the values passed are in range (1 or 2), reads the appropriate joystick 


through the AY-3-8912 registers and returns the value, if any. 


STICK 

M28F8 САШ S-2-COORD 
CALL NZ, READ-STICK 
RST $20 
JP S-NUMERIC 


READ-STICK 
M2902 САШ STK-TO-BC 
LD A,B 
CALL TEST-STICK-ARG 
LDA,C 
CALL TEST-STICK-ARG 
LD D,C 
LD A,$0E 
OUT ($F5),A 
LD C,$F6 
IN А(С) 
CPL 
LD B,D 
DJNZ STICK-BITS 
AND $0F 
CP $0F 
JR C, STICK-R-1 
AND $00 
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Make sure stick value is a number. 


Get next character. 
Mark as a numeric result. 


Put floating point value in BC. 
Copy to A. 
Is the stick device correct (1 or 2)? 


Is the stick number correct (1 or 2)? 


Set up to read the joystick 
through the AY-3-8912 IO port. 


STICK-R-1 
M2922 CALL STACK-A 
RET 


STICK-BITS 
M2926 КІСА 
AND $01 
JR STICK-R-1 


TEST-STICK-ARG 

M292B SUB $02 
ADC A,$00 
JR NZ, REPORT-A 
RET 


REPORT-A 
M2932 RST $08 
DEFB $09 


FREE Function Command 


FREE 

M2934 САШ SYNTAX-Z 
JR Z, FREE-1 
LD HL(RAMTOP) 
LD DE,(STKEND) 
AND A 
SBC HL,DE 


FREE-1 
M2948 RST $20 


JP S-NUMERIC 


Scanning Function Table 
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Put stick value on calculator stack. 


Set the bit values to return. 


Test that the stick value in both 
positions is 2 or less. 


Error: Invalid argument. 


Return if syntax checking. 


Get top of RAM. 

And bottom of the stack. 
Clear A. 

Subtract stack from RAMTOP. 
Put the value in BC. 


Convert to floating point. 


Get next character. 
Mark as numeric result. 


This table contains 8 functions and 4 operators. It thus incorporates 5 new Spectrum 
functions and provides a neat way of accessing some functions and operators which 


already existed on the ZX81. 


M294C DEFB $22,$24 
DEFB $28,$57 
DEFB $2E,$FA 
DEFB $2B,$1A 
DEFB $7C,$16 
DEFB $7E,$12 
DEFB $A8,$5A 
DEFB $A5,$5B 


S-QUOTE M2971 
S-BRACKET M29A6 
S-DECIMAL M2A4B 


S-U-PLUS М296р 
S-STICK M296B 
S-FREE M2969 
S-FN M29B3 
S-RND M29B6 
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DEFB $A7,$88 
DEFB $A6,$93 
DEFB $C4,$EA 
DEFB $AA,$C3 
DEFB $AB,$CB 
DEFB $A9,$D2 
DEFB $00 end of table 


S-PI M29E5 
S-INKEYS М29Ғ2 
S-BIN M2A4B 


S-SCREEN$ М2А26 
S-ATTR M2A30 
S-POINT M2A39 


Scanning Function Routines 


S-FREE 
M2969 JR FREE 


S-STICK 
M296B JR STICK 


S-U-PLUS 
M296D RST $20 
JP S-LOOP-1 


S-QUOTE 


This routine deals with string quotes, whether simple like "name" or more complex like 


a ""white"" lie" or the seemingly redundant VAL$ """a 


M2971 RST $18 
INC HL 
PUSH HL 
LD BC,$0000 
CALL S-QUOTE-S 
JR NZ, S-Q-PRMS 


S-Q-AGAIN 

M297C САШ S-QUOTE-S 
JR Z, S-Q-AGAIN 
CALL SYNTAX-Z 
JR Z, S-Q-PRMS 
RST $30 


POP HL 
PUSH DE 


S-Q-COPY 
M2989 LD A,(HL) 
INC HL 
LD (DE),A 
INC DE 
CP $22 
JR NZ, S-Q-COPY 
LD A,(HL) 
INC HL 
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For unary addition, get the next character 


and jump back to main re-entry of SCANNING. 


"nu 


Get current character. 

Point to the start of the string. 
Save the start address. 

Set length to zero. 

Call the quote matching routine. 
Jump if zero: no more quotes. 


Call again for 3rd quote. 

And again for fifth, seventh, etc. 

If syntax checking, jump to reset 

bit 6 of FLAGS and continue scanning. 
Make space for the string and terminating 
quote. 

Get pointer to the start. 

Save pointer to the first space. 


Get a character from the string. 
Point to the next one. 

Copy last one from work space. 
Point to last space. 

Is last character a question mark? 
If not, jump to copy next one; if 
next one is a quote, jump to copy 
the one after it. 
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CP $22 

JR 2, S-O-COPY Otherwise, finish copying. 
S-O-PRMS 
M2997  DECBC Get true length of BC. 


Note that the first quote was not counted into the length; the final quote was, and is 
discarded now. Inside the string, the first, third, fifth, etc., quotes were counted in but the 
second, fourth, etc., were not. 


POP DE Restore start of copied string. 

S-STRING 

M2999 LD HL,FLAGS This entry point is used when bit 6 is to be 
RES NUM, (HL) reset and a string stacked if executing a line. 
BIT INTPT,(HL) Interpreting? 
CALL NZ,STK-ST-$ Stack the string. 
JP S-CONT-2 Jump to continue scanning the line. 


Note that in copying the string to the work space, every two pairs of string quotes inside 


the string ("") have been reduced to one pair of string quotes("). 


S-BRACKET 
M29A6 RST $20 Get next character 
CALL SCANNING 
CP $29 
JP NZ,REPORT-C Error - BAD BASIC 
RST $20 Get next character 
JP S-CONT-2 
S-FN 
M29B3 JP S-FN-SBRN 
S-RND (RND) 
M29B6 САШ SYNTAX-Z Jump if syntax checking 
JR Z,S-RND-END 
LD BC,(SEED) Get the current seed value. 
CALL STACK-BC Put it on the calculator stack. 
RST $28 Call calculator. 
DEFB $A1 CONST 1 (256) 
DEFB $0F ADD 
DEFB $34,$37,$16 LITERAL decimal 75 
DEFB $04 TIMES 
DEFB $34,$80,$41,$00,$00,$80 LITERAL 65537 
DEFB $32 INTDIV 
DEFB $02 DROP 
DEFB $A1 CONST 1 (256) 
DEFB $03 SUB 
DEFB $31 DUP 
DEFB $38 QUIT 
CALL FP-TO-BC Use this last value to 
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LD (SEED),BC 

LD A,(HL) 

AND A 

JR Z, S-RND-END 
SUB $10 

LD (HL),A 


S-RND-END 
M29E3 JR S-PI-END 


S-PI (Ғ РІ) 


Scanning-PI routine: unless syntax is being checked the value of РІ! is calculated апа 


be new value for SEED. 
Fetch exponent of last value. 
Jump forward if zero 


Divide by 65536. 


Jump past PI routine. 


forms the ‘last value' on the calculator stack. 


M29E5 CALL SYNTAX-Z 
JR Z,S-PI-END 
RST $28 
DEFB $A3 
DEFB $38 
INC (HL) 


S-PI-END 
M29EE RST $20 
ЈР S-NUMERIC 


S-INKEY$ (F_INKY) 

M29F2 LD BC,$105A 
RST $20 
CP $23 
JP Z, S-PUSH-PO 
LD HL,FLAGS 
RES NUM,(HL) 
BIT INTPT,(HL) 
JR Z, S-INK$-EN 
CALL KEY-SCAN 
LD C,$00 
JR NZ,S-IK$-STK 
CALL K-TEST 
JR NC,S-IK$-STK 
DEC Р 
LD E,A 
CALL K-DECODE 
PUSH AF 
LD BC,$0001 
RST $30 
POP AF 
LD (DE),A 
LD C,$01 
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Jump if syntax checking. 


Call calculator. 
CONST 3 (PI/2) 
QUIT 


Get next character 


Priority $10, operation code $5A 
for read-in subroutine. 

If next character is #, jump. 

There will be a numerical argument. 


Reset bit 6 for string result. 

Test for syntax checking. 

Jump if required. 

Fetch a key-value in DE. 

Prepare empty string; stack it if too 
many keys pressed. 

Test the key value; stack empty string 
if unsatisfactory. 

$FF to D for L mode (bit 3 set). 
Key-value to E for decoding. 
Decode key value. 

Save ASCII value. 

One space needed in workspace. 
Make the space. 

Recall ASCII value. 

Prepare to stack it as string. 

Length is 1. 


S-IK$-STK 
M2A1E LD B,$00 
CALL STK-ST-$ 


S-INK$-EN 
M2A23 JP S-CONT-2 


S-SCREEN$ 

M2A26 CALL S-2-COORD 
CALL NZ,S-SCRN$-S 
RST $20 
JP S-STRING 


S-ATTR 

M2A30 CALL S-2-COORD 
CALL NZ, S-ATTR-S 
RST $20 
JR S-NUMERIC 


S-POINT 

M2A39 CALL S-2-COORD 
CALL NZ,POINT-SUB 
RST $20 
JR S-NUMERIC 


S-ALPHNUM 
M2A42 CALL ALPHANUM 


JR NC,S-NEGATE 
CP'A' 
JR NC,S-LETTER 


S-DECIMAL 
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Complete length. 
Stack the string. 


Jump forward. 


Check that 2 coordinates are provided. 
Call subroutine unless checking syntax; then 
get next character and jump back. 


Check that 2 coordinates are provided. 
Call subroutine unless checking syntax; then 
get next character and jump forward. 


Check that 2 coordinates are provided. 
Call sub unless checking syntax; then 
get next character and jump forward. 


Is character alphanumeric? 

Jump if not a letter or digit. 

Jump if a letter; otherwise continue 
to S-DECIMAL. 


Deals with a decimal point or a number that starts with a digit. Takes care of the 
expression 'BIN', which is handled in the decimal to floating-point subroutine. 


M2A4B CALL SYNTAX-Z 
JR NZ,S-STK-DEC 


Jump forward if line is being 
executed. 


If syntax is being checked, then the floating-point form has to be calculated and copied 
into the BASIC line. When a line is being executed, the floating-point form will always be 
available so it is copied to the calculator stack to form a 'last value'. During syntax 


checking: 


CALL DEC-TO-FP 
RST $18 

LD BC,$0006 

CALL MAKE-ROOM 
INC HL 

LD (HL),$0E 

INC HL 

EX DE,HL 


Convert to floating point. 

Set HL to point one past the last digit. 
Open space for a floating point 
number. 

Point to the first free space. 

Enter the number maker code. 

Point to the second location. 

Put pointer in DE. 
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LD HL,(STKEND) Get the old STKEND value. 

LD C,$05 5 bytes to move. 

AND A Clear carry. 

SBC HL,BC New STKEND = old STKEND - 5. 
LD (STKEND),HL Move number from calculator 
LDIR stack to the line. 

EX DE,HL Put line pointer in HL. 

DEC HL Point back to the last byte added. 
CALL TEMP-PTR1 Set CH_ADD. 

JR S-NUMERIC Jump to indicate a numeric result. 


During execution: step over the ASCII digits of a number until the slug character is 
reached. 


S-STK-DEC 
M2A73 RST $18 Get current character. 
S-SD-SKIP 
M2A74 INC HL Move on to the next character 
LD A,(HL) until the number marker code 
CP $0E is found. 
JR NZ,S-SD-SKIP 
INC HL Point to the fp number. 
CALL STACK-NUM Stack the fp value at (HL). 
LD (CH_ADD),HL Update CH_ADD. 
S-NUMERIC 


А numeric result has now been identified, coming from RND, РІ, ATTR, POINT ora 
decimal number, therefore bit 6 of FLAGS must be set. 


M2A81 SET NUM,(IY+OFLAGS) Set the numeric marker flag. 
JR S-CONT-1 


Scanning Variable Routine 


When a variable name has been identified a call is made to LOOK-VARS to look for 
extant variables in the variables area (or in the program area at DEF FN statements for a 
user-defined function FN). 


If an appropriate numeric value is found then it is copied to the calculator stack using 
STACK-NUM. 


String or string array entries have the appropriate parameters passed to the calculator 
stack by the STK-VAR subroutine (or in the case of a user-defined function, by the STK-F- 
ARG subroutine as called from LOOK-VARS). 


S-LETTER 
M2A87 САШ LOOK-VARS Check in the variables area for matching entry. 
ЈР C, REPORT-2 Jump to error if variable was not found. 
CALL Z ,STK-VAR Stack parameters of the string entry/return 
numeric element base address. 
LD A,(FLAGS) 
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CP $CO Test bits 6 and 7. 
JR C, S-CONT-1 One or both bits are reset. 
INC HL A numeric value is to be stacked. 


CALL STACK-NUM 


5-СОМТ-1 
M2A9B ЈК 5-СОМТ-2 


The character is tested against the code for '-', thus identifying the ‘unary minus' 
operation. 


Before the actual test, B is set to hold the priority +09 and C the operation code +D8 that 
are required for this operation. 


S-NEGATE 

M2A9D LD BC,$09DB Priority $09, operation code $D8. 
CP $2D Is it a minus? 
JR Z, S-PUSH-PO Jump forward if unary minus. 


Next test the character against the code for 'VAL$', with priority 16 decimal and 
operation code 18 hex. 


LD BC,$1018 Priority $10, operation code $18. 
CP $AE Is it VAL$? 
ЈК Z, S-PUSH-PO Jump forward if it is VAL$. 


Character must now represent one of the functions CODE to NOT, with codes +AF to 
+C3. 


SUB $AF Range of the functions is changed from 
$AF to $C3 to $0 to $14. 
JP C ,REPORT-C Report an error if out of range. 


The function 'NOT' is identified and dealt with separately from the others. 


LD BC,$04F0 Priority $04, operation code $FO. 
CP $14 Is it NOT? 

JR Z, S-PUSH-PO Jump if so. 

JP NC,REPORT-C Check the range again. 


The remaining functions have priority 16 decimal. The operation codes for these 
functions are now calculated. Functions that operate on strings need bit 6 reset and 
functions that give string results need bit 7 reset in their operation codes. 


LD B,$10 Priority $10. 

ADD A,$DC Function range now $DC to $EF. 
LD C,A Transfer operation code. 

CP $DF Separate CODE, VAL and LEN, 
JR NC, S-NO-TO-S which operate on strings to give 
RES 6,C numerical results. 
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5-МО-ТО-5 

M2AC5 СР $EE Separate STR$ and CHR$, which 
JR C, S-PUSH-PO operate on numbers to give string results. 
RES 7,C Mark the operation codes. 


The priority code and the operation code for the function being considered are now 
pushed on to the machine stack. A hierarchy of operations is thereby built up. 


S-PUSH-PO 

M2ACB PUSH BC Stack priority and operation code before 
RST $20 moving onto consider the next part of the 
JP S-LOOP-1 expression. 


Scanning the line continues. Current argument may be followed by a '(', a binary operator 
or, if the end of the expression has been reached, then e.g. a carriage return character or 
a colon, a separator or a 'THEN'. 


S-CONT-2 

M2ADO RST $18 Get current character. 

S-CONT-3 

M2AD1 CP $28 Jump forward if it is left parenthesis. 


JR NZ, S-OPERTR 


If the ‘last value’ is numeric then the parenthesized expression is a true sub-expression 
and must be evaluated by itself. However if the ‘last value’ is a string then the 
parenthesized expression represents an element of an array or a slice of a string. A call to 
SLICING modifies the parameters of the string as required. 


ВІТ NUM,(IY--OFLAGS) Jump forward if dealing with a number, 


JR NZ,S-LOOP parenthesized expression. 

CALL SLICING Modify the parameters of the last value. 
RST $20 Get next character. 

JR S-CONT-3 


If the present character is indeed a binary operator it will be given an operation code in 
the range +C3 - «CF hex, and the appropriate priority code. 


S-OPERTR 
M2AE1 LD B,$00 Original code to BC to index 
LD C,A into table of operators. 
LD HL,OPTBL 
CALL INDEXER Index into the table. 
JR NC, S-LOOP Jump forward if no operation found. 
LD C,(HL) Get required code from the table. 
LD HL,OPPRI-$C3 Pointer to the priority table. 
ADD HL,BC Index into the table. 
LD B,(HL) Find the appropriate priority. 
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At this stage there are: 

* A 'last value’ on the calculator stack. 

* The starting priority market on the machine stack below a hierarchy, of unknown size, of 
function and binary operation codes. This hierarchy may be null. 

* The BC register pair holding the 'present' operation and priority, which if the end of an 


expression has been reached will be priority zero. 


Initially the 'last' operation and priority are taken off the machine stack and compared 
against the 'present' operation and priority. 


If the 'present' priority is higher than the 'last' priority, then an exit is made from the loop 
as the ‘present’ priority is considered to bind tighter than the 'last' priority. 


However, if the present priority is less binding then the operation specified as the 'last' 
operation is performed. The 'present' operation and priority go back on the machine 
stack to be carried round the loop again. In this manner the hierarchy of functions and 
binary operations that have been queued are dealt with in the correct order. 


S-LOOP 

M2AF2 POP DE Get the last operation and priority. 
LD A,D Priority goes to A. 
CPB Compare last against present. 


JR C, S-TIGHTER 
AND A 
JP Z, GET-CHAR 


Exit to wait for argument. 
Are both priorities zero? 
Exit via GET-CHAR, making last value the result. 


Before the 'last' operation is performed, the 'USR' function is separated into 'USR 


number' and 'USR string' according as bit 6 of FLAGS was set or reset when the argument 


of the function was stacked as the 'last value'. 


PUSH BC Stack the present values. 
LD HL,FLAGS 
LD A,E Last operation is compared against code for 
СР Ер USR, which will give USR # unless modified. 
JR NZ,S-STK-LST Jum if not USR. 
BIT NUM,(HL) Is this a number? 
JR NZ, S-STK-LST Jump if yes (USR #). 
LD E,$99 Modify last operation code offset. 
S-STK-LST 
M2BOA PUSH DE Stack last values briefly. 
CALL SYNTAX-Z Do not perform operation if syntax checking. 


JR Z, S-SYNTEST 
LDA,E 


Last operation code. 


AND $3F Strip off bits 6 and 7 to convert operation code 
LD B,A to calculator offset. 

RST $28 Call calculator. 

DEFB $3B XEQTB 

DEFB $38 QUIT 


JR S-RUNTEST 
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An important part of syntax checking involves the testing of the operation to ensure that 
the nature of the ‘last value’ is of the correct type for the operation under consideration. 


S-SYNTEST 

M2B19 LDA,E Get the last operation code. 
XOR (IY+OFLAGS) Test against last operation code. Correct 
AND $40 if same syntax. 

S-RPORT-C 

M2B1F JP NZ,REPORT-C Jump if syntax fails. 


Before jumping back to go round the loop again the nature of the ‘last value’ must be 
recorded in FLAGS. 


S-RUNTEST 

M2B22 POP DE Get the last operation code. 
LD HL,FLAGS 
SET NUM,(HL) Assume result to be numeric. 
BIT INTPT,E Jump forward if interpreting. 
JR NZ, S-LOOPEND 
RES NUM,(HL) Otherwise, it is a string. 

S-LOOPEND 

M2B2E POP BC Get the present value in to BC. 
JR 5- ООР 


When the 'present' operation binds tighter, the 'last' and the ‘present’ values go back on 
the machine stack. However if the 'present' operation requires a string as its operand 
then the operation code is modified to indicate this requirement. 


S-TIGHTER 
M2B31 PUSH DE Last values go to the stack. 
LD A,C Get present operation code. 
ВІТ NUM,(IY+OFLAGS) Do not modify the operation code if dealing 
JR NZ, S-NEXT with numeric operand. 
AND $3F Clear bits 6 and 7. 
ADD A,$08 Increase the code by $08. 
LD C,A Return the code to С. 
CP $10 Is the operation AND? 
JR NZ, S-NOT-AND Jump if it is not. 
SET 6,C AND requires a numeric operand. 
JR S-NEXT 
S-NOT-AND 
M2B46  JRC, S-RPORT-C The operation -, *, /, ^ and OR are not 
possible between strings. 
CP $17 Is the operation +? 
JR Z, S-NEXT Jump if yes. 
SET 7,C Other operations have a numeric result. 
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S-NEXT 
M2B4E 


TABLE OF OPERATORS 


OPTBL 
M2B53 


PUSH BC 
RST $20 
JP S-LOOP-1 


DEFB $2B,$CF 
DEFB $2D,$C3 
DEFB $2A,$C4 
DEFB $2F,$C5 
DEFB $5E,$C6 
DEFB $3D,$CE 
DEFB $3E,$CC 
DEFB $3C,$CD 
DEFB $C7,$C9 
DEFB $C8, $CA 
DEFB $C9, $CB 
DEFB $C5, $C7 
DEFB $C6, $C8 
DEFB $00 


‘+' ADD 

‘-" SUB 

*' MULT 

‘7’ DIV 

'^' POW 
‘=' EQUALS 


Present values go to the stack. 
Get next character. 
Go around loop again. 


M2B7A 
M2B6E 
M2B6F 
M2B70 
M2B71 

M2B79 
M2B77 
M2B78 
M2B74 
M2B75 
M2B76 
M2B72 
M2B73 


TABLE OF PRIORITIES (precedence table) 
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OPPRI 
M2B6E 


DEFB $06 и" 
DEFB $08 "к" 
DEFB $08 S 


DEFB $0A LINN 
DEFB $02 OR 


DEFB $03 AND 


DEFB $05 “<= 
DEFB $05 “>= 
DEFB $05 “<> 
DEFB $05 ">" 


DEFB $05 “< 


ОЕЕВ $05 "=" 
DEFB $06 "+" 
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Scanning Function Subroutine 


Called by the ‘scanning FN routine’ to evaluate a user defined function which occurs in а 
BASIC line. 


The subroutine can be considered in four stages: 

1. The syntax of the FN statement is checked during syntax checking. 

2. During line execution, a search is made of the program area for a DEF FN statement, 
and the names of the functions are compared, until a match is found - or an error is 
reported. 

3. The arguments of the FN are evaluated by calls to SCANNING. 

4. The function itself is evaluated by calling SCANNING, which in turn calls LOOK-VARS 
and so the 'STACK FUNCTION ARGUMENT ' subroutine. 


S-FN-SBRN 
M2B7B CALL SYNTAX-Z Jump if not syntax checking. 
JR NZ, SF-RUN 
RST $20 Get next character. 
CALL ALPHA If it is not alphabetic, then 
JP NC,REPORT-C report the error. 
RST $20 Get next character. 
CP $24 Is it $? 
PUSH AF Save the zero flag to the stack. 
JR NZ, SF-BRKT-1 Jump if it was not $. 
RST $20 But get next character if it was. 
SF-BRKT-1 


M2B8E CP $28 
JR NZ,SF-RPRT-C 
RST $20 
CP $29 
JR Z,SF-FLAG-6 


SF-ARGMTS 
M2B97 CALL SCANNING 


RST $18 
CP $2C 
JR NZ,SF-BRKT-2 
RST $20 
JR SF-ARGMNTs 


SF-BRKT-2 
M2BA2 CP $29 


SF-RPRT-C 
М2ВА4 ЈР NZ,REPORT-C 


SF-FLAG-6 
М2ВА7 RST $20 
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If the character is not '(", then 

report the error. 

Get next character. 

Is it ^)? 

Jump if it was; there are no arguments. 


Within this loop call SCANNING to check 
syntax of each argument and insert floating 
point numbers. 

Get current character. 

If it is not a comma then jump, there 

are no more arguments. 

Get next character in the argument. 

Jump back to process it. 


Is the current character a ‘)'? 


No, report the error. 


Get next character. 


LD HL,FLAGS 
RES NUM,(HL) 
POP AF 

JR Z,SF-SYN-EN 
SET NUM,(HL) 


SF-SYN-EN 
M2BB2 JP S-CONT-2 
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Assume string; reset NUM. 
Restore zero flag, jump if FN is 
a string value. 

Otherwise, set NUM of FLAGS. 


Jump back to continue scanning the line. 


During line execution, a search must first be made for a DEF FN statement. 


SF-RUN 
M2BB5 RST $20 
AND $DF 
LD B,A 
RST $20 
SUB $24 
LD СА 
JR NZ, SF-ARGMT1 
RST $20 


SF-ARGMT1 

M2BCO RST $20 
PUSH HL 
LD HL,(PROG) 
DEC HL 


SF-FND-DF 

M2BC6 LD DE,$00CE 
PUSH BC 
CALL LOOK-PROG 
POP BC 
JR NC, SF-CP-DEF 


REPORT-P 
M2BDO RST $08 
DEFB $18 


Get the first character of the name. 

Reset bit 5 for upper case. 

Copy name to B. 

Get next character. 

Subtract code for $. 

Copy to C (zero for string; non-zero for numeric). 
Jump if non-zero; numeric. 

Get next character, the 4. 


Get first character of first argument. 
Save pointer to it to the stack. 
Point to the start of the program. 
Go back one location. 


Search for DEF FN. 

Save the name and string status. 
Search the program. 

Restore name and status. 

Jump if found. 


Error: FN without DEF FN. 


When a DEF FN statement is found, the name and status of the two functions are 
compared: if they do not match, the search is resumed. 
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SF-CP-DEF 
M2BD2 PUSH HL 


CALL FN-SKPOVER 
AND $DF 

CPB 

JR NZ, SF-NOT-FD 
CALL FN-SKPOVER 
SUB $24 

СРС 

JR Z, SF-VALUES 


SF-NOT-FD 


M2BE3 


POP HL 

DEC HL 

LD DE,$0200 
PUSH BC 

CALL EACH-STMT 
POP BC 

JR SF-FND-DF 


Save pointer to the DEF FN character 
in case search has to be resumed. 
Get the name of the DEF FN function. 
Reset bit 5 for upper case. 

Does it match the FN name? 

Jump if it does not match. 

Get the next character in the DEF FN. 
Subtract code for $. 

Compare status with that of FN. 
Jump if match found. 


Restore pointer to the DEF FN. 
Step back one. 

Use search routine to find end of 
DEF FN, preparing for the next 
search; save the name and status. 


The correct DEF FN statement has now been found. The arguments of the FN statement 
will be evaluated by repeated calls of SCANNING, and their 5 byte values (or parameters, 
for strings) will be inserted into the DEF FN statement in the spaces made there at syntax 
checking. HL will be used to point along the DEF FN statement (calling FN-SKPOVR as 
needed) while CH_ADD points along the FN statement (calling RST 0020, NEXT-CHAR, 
as needed). 


SF-VALUES 
M2BEF ANDA 


CALL Z ,FN-SKPOVR 


POP DE 

POP DE 

LD (CH_ADD),DE 
CALL FN-SKPOVR 
PUSH HL 

CP $29 

JR Z, SF-R-BR-2 


SF-ARG-LP 


М2С01 
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INC HL 

LD A,(HL) 

CP $0E 

LD D,$40 

JR Z, SF-ARG-VL 
DECHL 

CALL FN-SKPOVR 
INC HL 

LD D,$00 


IF HL is pointing to a $, move on to 7. 


Discard pointer to DEF FN. 

Get pointer to first argument of FN and 
copy it to CH. ADD. 

Move past the ‘(’. 

Save this pointer to the stack. 

Is it pointing to а”)? 

If so jump: FN has no arguments. 


Point to the next code and 

put it in A. 

Is it the number marker code? 

Set bit 6 of D for numerical argument. 
Jump on zero: numerical argument. 
Ensure HL points to the $. 


HL now points to the number marker. 
Reset bit 6 of D: string argument. 


SF-ARG-VL 

M2C10 INC HL 
PUSH HL 
PUSH DE 
CALL SCANNING 
POP AF 
ХОК (IY+OFLAGS) 
AND $40 
JR NZ,REPORT-O 
POP HL 
EX DE,HL 
LD HL,(STKEND) 
LD BC,$0005 
SBC HL,BC 
LD (STKEND),HL 
LDIR 
EX DE,HL 
DEC HL 
CALL FN-SKPOVR 
CP $29 
JR Z, SF-R-BR-2 
PUSH HL 
RST $18 


CP $2C 


JR NZ, REPORT-O 
RST $20 

POP HL 

CALL FN-SKPOVR 
JR SF-ARG-LP 


SF-R-BR-2 
M2C43 PUSH HL 
RST $18 
CP $29 
JR Z, SF-VALUE 


REPORT-O 
M2C49 RST $08 
DEFB $19 
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Point to the 1st of 5 bytes of DEF FN. 
Save pointer to the stack. 

Save string status of the argument. 
Evaluate the argument. 

Get the number/string flag to A. 

Test NUM against result of SCANNING. 


Give report Q if they don't match. 
Put pointer to the 1st of 5 spaces DE. 


Point HL to STKEND. 

5 spaces to move. 

Decrease STKEND by 5. 

deleting the last value from the stack. 

Copy the 5 bytes into the spaces in DEF FN. 
Point HL at the next code. 

Ensure that HL points to the character after 
the 5 bytes. 

Is it a ‘)'? 

Jump if it is: no more arguments here. 

It is a comma; save the pointer to it. 

Get current character after last arg evaluated 
from FN. 

If it is not a comma, jump: mismatched 
arguments in FN and DEF FN. 


Advance CH ADD to the next argument of FN. 
Point HL to the comma in DEF FN. 

Move HL to the next arg in DEF FN. 

Jump back to process the argument. 


Save the pointer to ‘)’ in DEF FN. 

Get current character after last arg in FN. 
Is it /)'? 

If so, jump to evaluate. If not, report error. 


Error: Parameter error. 


Finally, the function itself is evaluated by calling SCANNING, after first setting DEFADD 
to hold the address of the arguments as they occur in the DEF FN statement. This 
ensures that LOOK-VARS, when called by SCANNING, will first search these arguments 
for the required values, before making a search of the variables area. 


SF-VALUE 
M2C4B POP DE 
EX DE,HL 


Restore pointer to ')' in DEF FN. 
Put the pointer in HL. 
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LD (CH_ADD),HL Put it in CH_ADD. 

LD HL,(DEFADD) Get old value of DEFADD. 

EX (SP),HL Stack it and get the start address and arguments 
LD (DEFADD),HL of DEF FN in to DEFADD. 

PUSH DE Save address of ')' in FN. 

RST $20 Move CH. ADD past ”)' and 

RST $20 '—' to start of expression for function in DEF FN. 
CALL SCANNING Evaluate the function. 

POP HL Restore address of ‘)’ in FN. 

LD (CH ADD),HL Store it in СН ADD. 

POP HL Restore original value of DEFADD 

LD (DEFADD),HL and put it back into DEFADD. 

RST $20 Move to next char in the BASIC line. 

JP S-CONT-2 Jump back to continue scanning. 


Function Skipover Subroutine 


Used by FN and STK-F-ARG to move HL along the DEF FN statement while leaving 
CH_ADD undisturbed, as it points along the FN statement. 


FN-SKPOVR (NXT_HL) 


M2C69 INC HL Point to next code in statement. 
LD A,(HL) Copy code to A. 
CP $21 Jump back or skip over if it is control 
JR C, FN-SKPOVR code or a space. 
RET 


LOOK-VARS Subroutine 


Called to search the variables area or the arguments of a DEF FN statement. 


Entered with the system variable СН ADD pointing їо the first letter of the name of the 
variable whose location is being sought. The name will be in the program area or the 
work space. 


Builds up a discriminator byte, in C, that is based on the first letter of the variable name. 
Bits 5 & 6 of this byte indicate the type of the variable. B is used as a bit register to hold 
flags. 


If no matching name was found: 

1. the carry flag is set 

2. the zero flag is set when the search was for an array variable 
3. HL points to the first letter of the variable name 


If the search found a match: 

1. the carry flag is reset 

2. the zero flag is set for both simple string variables and all array variables. 

3. HL points to the letter of a single letter variable name o the last character of a multi 
variable name as it appear in the variable list 


Bit 6 of C is reset when dealing with an array of numbers and set when dealing with an 
array of strings. 
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Bit 7 of C is reset during line execution and set during syntax checking. 


LOOK-VARS (FIND_N) 
M2C70 SET NUM,(IY+OFLAGS) Start by assuming numeric value. 


RST $18 Get current character. 

CALL ALPHA Jump if it is not a letter. 

JP NC,REPORT-C Error - BAD BASIC. 

PUSH HL Save the pointer to the first letter. 

AND $1F Transfer bits 0 to 4 to C. 

LD C,A 

RST $20 Get next character into A. 

PUSH HL Save the pointer to the second character. 
СР" Jump if an array. 

JR Z, V-RUN/SYN Separate arrays of numbers. 

SET 6,C Set bit 6. 

СР '$' Jump if a string 

JR Z, V-STR-VAR Separate all the strings. 

SET 5,C Set bit 5. 

CALL ALPHANUM If the variable name has only one character 
JR NC, V-TEST-FN then jump forward. 


Now find the end character of a name that has more than one character. 


V-CHAR 
М2С92 CALL ALPHANUM Is the character alphanumeric? 
JR NC, V-RUN/SYN Jump out of the loop when the end 
end of the name is found. 
RES 6,C Mark the discriminator byte. 
RST $20 Get next character. 
JR V-CHAR And test it. 


Simple strings and arrays of strings require that bit 6 of FLAGS is reset. 


V-STR-VAR 
M2C9C RST $20 Step CH, ADD past the $. 
RES NUM,(IY--OFLAGS) Reset NUM to indicate a string result. 


f DEFADD-hi is non-zero (indicating that a function [FN] is being evaluated) and if in run- 
time, search the arguments in the DEF FN statement. 


V-TEST-FN 
M2CA1 LD A(DEFADD- 1) Is DEFADD-hi zero? 
ANDA 
JR Z, V-RUN/SYN If so, jump forward. 
CALL SYNTAX-Z Is this run-time? 
JP NZ, STK-F-ARG If yes, jump forward to search DEF FN. 


Otherwise (or if the variable was not found in the DEF FN statement), search variables 
area, unless syntax is being checked. 
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V-RUN/SYN 
M2CAD LD B,C 
CALL SYNTAX-Z 
JR NZ, V-RUN 
LD A,C 
AND $E0 
SET 7,A 
LD C,A 
JR V-SYNTAX 


Put discriminator byte in B. 
Jump forward if in run-time. 


Move discriminator to A. 

Drop the character code. 
Indicate syntax by setting bit 7. 
Put it back into C. 

Jump forward to continue. 


A BASIC line is being executed so make a search of the variables area. 


V-RUN 
M2CBB LD HL,(VARS) 


Point to the variable region. 


Enter a loop to process the names of the existing variables. 


V-EACH 

M2CBE LD A,(HL) 
AND $7F 
JR Z, V-80-BYTE 
CPC 
JR NZ,V-NEXT 
RLA 
ADD A,A 
JP P, V-FOUND-2 
JR C, V-FOUND-2 


Long names are matched fully. 


POP DE 
PUSH DE 
PUSH HL 


V-MATCHES 
M2CDO INC HL 


V-SPACES 
M2CD1 LD A,(DE) 
INC DE 
CP'' 
JR Z, V-SPACES 
OR $20 
CP (HL) 
JR Z,V-MATCHES 
OR $80 
CP (HL) 
JR NZ,V-GET-PTR 
LD A,(DE) 
CALL ALPHANUM 
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Get the first letter of the variable name. 
Match on bits 0 to 6. 

Jump when the $80 byte is found. 
Jump if this is not the name 

we are seeking. 

Rotate and double to test 

bits 5 and 6. 

Strings and array variables. 

Simple numeric and FOR-NEXT vars. 


Get the pointer to the 2nd character. 
Save it again. 
Save the 1st letter pointer. 


Look at the next character. 


Get each character in turn. 

Point to next character. 

Is it a space? 

Ignore the spaces 

Set bit 5 to match upper and lower case. 
Compare. 

Matched: go back around for next character. 
Check for match against bit 7. 


Jump forward if the last characters do not match. 
Check that the end of the name 
has been reached before 
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JR NC, V-FOUND-1 jumping forward. 
n all cases where the names fail to match the HL register pair has to be made to point to 
the next variable in the variables area. 
V-GET-PTR 
M2CE7 POPHL Fetch the variable pointer. 
V-NEXT 
M2CE8 PUSH BC Briefly save BC. 
CALL NEXT-ONE Make DE point to next variable. 
EX DE,HL Switch the two pointers. 
POP BC Restore BC and go 
JR V-EACH back around for another. 


Come here if no entry was found with the correct name. 


V-80-BYTE 
M2CFO SET 7,B Signal that no matching variable was found. 


Come here if checking syntax. 


V-SYNTAX 
M2CF2 POP DE Drop the pointer to the 2nd character. 
RST $18 Get current character. 
СР" Is it '(? 
JR Z, V-PASS Jump forward. 
SET 5,B Indicate this is not an array and 
JR V-END jump forward. 


Come here when an entry with the correct name was found. 


V-FOUND-1 

M2CFC POP DE Drop the saved variable pointer. 

V-FOUND-2 

M2CFD POP DE Drop the second char pointer. 
POP DE Drop the first letter pointer. 
PUSH HL Save the last letter pointer. 
RST $18 Get current character. 


Move past the characters in a multi-character name. If the matching variable name has 
more than a single letter, then the other characters must be bypassed. 


V-PASS 
M2D01 CALL ALPHANUM Jump when we have reached the 
JR NC,V-END last character (bit 7 set). 
RST $20 Get next character, 
JR V-PASS go back to test it. 
V-END 
M2D09 POP HL HL holds pointer to the letter of a short name 
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or the last character of a long name. 


RL B Rotate the register. 
BIT 6,B Set bit 6. 
RET 


Stack Function Argument Subroutine 


Called by LOOK-VARS when DEFADD-hi in non-zero, to search the arguments area of a 
DEF FN statement, before searching in the variables area. 


If the variable is found in the DEF FN statement, then the parameters of a string 
variable are stacked and a signal is given that there is no need to call STK/VAR. But it is 
left to SCANNING to stack the value of a numerical variable in the usual way. 


STK-F-ARG 
M2DOF LD HL,(DEFADD) Point to 1st character in arguments 
LD A,(HL) and put it in to A. 
CP $29 Is it ^)? 
JP Z, V-RUN/SYN Jump to search the variables. 
SFA-LOOP 
M2D18 LDA,(HL) Get the next argument in the loop. 
OR $60 Set bits 5 & 6, assuming a simple 
LD B,A numeric variable; copy to B. 
INC HL Point to the next code. 
LD A,(HL) Put in in A. 
CP $0E Is the the number marker code? 
JR Z,SFA-CP-VR Yes, jump. 
DEC HL Ensure HL points to the character, 
CALL FN-SKPOVR not a space of control code. 
INC HL HL now points to the number marker. 
RES 5,B Reset bit 5: string variable. 
SFA-CP-VR 
M2D29 LDA,B Get the variable name into a. 
CPC Is it the one we are seeking? 
JR Z, SFA-MATCH Yes, jump. 
INC HL Pass over the 5 bytes of a 
INC HL floating-point number or 
INC HL string parameters to get to next 
INC HL argument. 
INC HL 
CALL FN-SKPOVR Skip to next character. 
CP $29 Is it ^)? 
JP Z, V-RUN/SYN Yes, jump to search variables area. 
CALL FN-SKPOVR Point to net argument. 
JR SFA-LOOP Jump back to process it. 


A match has been found. The parameters of a string variable are stacked, avoiding the 
need to call the STK-VAR subroutine. 
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SFA-MATCH 
M2D3F BIT 5,C 


JR NZ, SFA-END 
INC HL 

LD DE,(STKEND) 
CALL MOVE-FP 

EX DE,HL 
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Test for numeric variable. 

Jump if numeric; SCANNING will stack it. 
Point to the first of 5 bytes to stack. 

Point DE to STKEND. 

Stack the 5 bytes. 

Point HL to new position of STKEND. 


LD (STKEND),HL Reset STKEND. 

SFA-END 

M2D4F POP DE Discard the LOOK-VARS pointers. 
POP DE 
XOR A Return from search with both carry and 
INCA zero flags reset, indicating that call to 
RET STK-VAR is not required. 


STK-VAR Subroutine 


Usually used either to find the parameters that define an existing string entry in the 
variables area or to return in HL the base address of a particular element or an array of 
numbers. When called from DIM the subroutine only checks the syntax of the BASIC 
statement. 


The parameters that define a string may be altered by calling SLICING if this should be 
specified. 


Initially, A and B are cleared and bit 7 of C is tested to determine whether syntax is being 
checked. 


STK-VAR (GET_EL) 


M2D54 XORA Clear the array flag. 
LD B,A Clear B for later. 
BIT 7,C Jump forward if syntax is being checked. 


JR NZ,SV-COUNT 


Next, simple strings are separated from array variables. 


BIT 7,(HL) Jump forward if dealing with an array variable. 
JR NZ, SV-ARRAYS 
INCA Indicate this is a string variable. 
SV-SIMPLE$ 
M2D5F INC HL Move along the entry. 
LD C,(HL) Pick up the low length counter. 
INC HL Advance the pointer. 
LD B,(HL) Get the high length counter. 
INC HL Advance the pointer. 
EX DE,HL Transfer pointer to the actual string. 
CALL STK-STORE Pass parameters to the calculator stack. 
RST $18 Get current character and jump forward 


JP SV-SLICE? to see if a ‘slice’ is requested. 
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Base address of an element in an array is now found. Initially the 'number of dimensions’ 
is collected. 


SV-ARRAYS 
M2D6C INC HL Step past the length bytes. 
INC HL 
INC HL 
LD B,(HL) Get number of dimensions. 
BIT 6,C Jump forward if handling array of numbers. 
JR Z, SV-PTR 


If an array of strings has 1 dimension, then it can be handled as a simple string. 


DEC B Decrease number of dimensions and jump 
JR Z, SV-SIMPLE$ if it is zero. 


Check to ensure that the variable is followed by a subscript. 


EX DE,HL Save pointer to DE. 

RST $18 Get current character. 

CP $28 Is ita (2 

JR NZ, REPORT-3 No? Issue error message. 
EX DE,HL Restore pointer. 


For both numeric arrays and arrays of strings the variable pointer is transferred to the DE 
register pair before the subscript is evaluated. 


SV-PTR 
M2D7E EX DE,HL Pass pointer to DE. 
JR SV-COUNT 


This loop finds the parameters of a specified element within an array. The loop is entered 
at the mid-point (SV-COUNT), where the element count is set to zero. 


The loop is accessed 'B' times, this being, for a numeric array, equal to the number of 


dimensions that are being used, but for an array of strings 'B' is one less than the number 
of dimensions in use as the last subscript is used to specify a 'slice' of the string. 
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SV-COMMA 
M2D81 PUSH HL 
RST $18 
POP HL 
CP $2C 
JR Z, SV-LOOP 
BIT 7,C 
JR Z, REPORT-3 
BIT 6,C 
JR NZ, SV-CLOSE 
CP $29 
JR NZ, SV-RPT-C 
RST $20 
RET 
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Save the counter. 

Get current character. 

Restore the counter. 

Is the current character a comma? 

Jump forward to look for another subscript. 
If a line is being executed, 

then there is an error. 

Jump forward if handling array of strings. 


Is current character a ‘)'? 
Report an error if not. 
Get next character. 


For an array of strings the present subscript may represent a ‘slice’, or the subscript for а 
'slice' may yet be present in the BASIC line. 


SV-CLOSE 
M2D96 CP $29 
JR Z, SV-DIM 
CP $CC 
JR NZ, SV-RPT-C 


SV-CH ADD 

M2D9E RST $18 
DECHL 
LD (CH_ADD),HL 
JR SV-SLICE 


Enter the loop here. 


SV-COUNT 
M2DA5 LD HL,$0000 


SV-LOOP 
M2DA8 PUSHHL 

RST $20 

POP HL 

LD A,C 

CP $CO 

JR NZ, SV-MULT 

RST $18 

CP $29 

JR Z, SV-DIM 

CP $CC 

JR Z, SV-CH ADD 


Is current character a ‘)'? 

Jump forward and check for another subscript. 
Is the character a ТО’? 

It must not be otherwise. 


Get current character. 

Point to the preceding character and 
set CH_ADD. 

Evaluate the ‘slice’. 


Set counter to О. 


Save the counter. 

Advance CH_ADD. 

Restore the counter. 

Get the discriminator byte. 

Jump unless checking the syntax 
for an array of strings. 

Get current character. 

Is it a )'? 

Jump forward; finished counting elements. 
Is it “ТО? 

Jump back if dealing with a ‘slice’. 
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SV-MULT 
M2DB9 PUSH BC Save dimension number counter and 
discriminator byte. 
PUSH HL Save element counter. 
CALL DE,(DE+1) Put dimension size in to DE. 
EX (SP),HL Move counter to HL and stack variable pointer. 
EX DE,HL Move counter to DE and dimension size to HL. 
CALL INT-EXP1 Evaluate the next subscript. 
JR C, REPORT-3 Give an error if out of range. 
DEC BC Decrement counter. 
CALL GET-HL*DE Multiply the counter by dimension size. 
ADD HL,BC Add result of INT-EXP1 to counter. 
POP DE Get variable pointer. 
POP BC Get dimension number and discriminator byte. 
DJNZ SV-COMMA Keep going around until B is O. 


The SYNTAX/RUN flag is checked before arrays of strings are separated from arrays of 
numbers. 


BIT 7,C Report an error if checking syntax at this point. 
SV-RPT-C 
M2DDO ЈК NZ, SL-RPT-C 

PUSH HL Save the counter. 

BIT 6,C Jump forward if handling an array of strings. 


JR NZ, SV-ELEM$ 


When dealing with an array of numbers the present character must be a ')'. 


LD B,D Transfer variable pointer to 

LD C,E BC. 

RST $18 Get current character. 

CP $29 її”? 

JR Z, SV-NUMBER Jump past error report if it's not needed. 
REPORT-3 
M2DDE RST $08 Error: Subscript wrong. 

DEFB $02 


The address of the location before the actual floating-point form can now be calculated. 


SV-NUMBER 

M2DEO RST $20 Advance CH_ADD. 
POP HL Get the counter. 
LD DE,$0005 5 bytes to each element in array of numbers. 
CALL GET-HL*DE Computer total number of bytes required. 
ADD HL,BC Point HL to location before required element. 
RET 
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When dealing with an array of strings the length of an element is given by the last 
'dimension-size'. The appropriate parameters are calculated and then passed to the 
calculator stack. 


SV-ELEM$ 
M2DEA CALL DE,(DE+1) Get the dimension size. 
EX (SP),HL Variable pointer goes on stack and counter in HL. 
CALL GET-HL*DE Multiply counter by dimension size. 
POP BC Get variable pointer. 
ADD HL,BC Point HL to location before the string. 
INC HL Move to the actual start. 
LD B,D Transfer las dimension size to BC to form length. 
LD C,E 
EX DE,HL Move start to DE. 
CALL STK-ST-0 Pass parameters to calculator stack. 


There are three possible forms of the last subscript. The first is illustrated by - A$(2,4 TO 
8) -, the second by - A$(2)(4 TO 8) - and the third by - A$(2) - which is the default form 
and indicates that the whole string is required. 


RST $18 Get current character. 
CP $29 Is it ‘)'? 
JR Z, SV-DIM Jump if yes. 
CP $2C Is it a comma? 
JR NZ, REPORT-3 Report an error if not. 
SV-SLICE 
M2E03 CALL SLICING Use SLICING to modify the set of parameters. 
SV-DIM 
M2E06 RST $20 Get next character. 
SV-SLICE? 
M2E07 CP $28 Is ita (2? 
JR Z, SV-SLICE Jump back if there is another slide to consider. 


When finished considering the last subscript a return can be made. 


RES NUM,(IY--OFLAGS) Signal string result. 
RET 


SLICING Subroutine 


Strings are sliced using this subroutine. Entered with the parameters of the string on the 
top of the calculator stack and in the registers A, B, C, D & E. SYNTAX/RUN flag is tested 
and the parameters of the string are fetched only if a line is being executed. 


SLICING (SLICER) 
M2E10 САШ SYNTAX-Z Check interpreting flag. 


CALL NZ,STK-FETCH Take the parameters off the stack in run-time. 


The possibility of the 'slice' being '()' has to be considered. 
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RST $20 
CP $29 
ЈК Z, SL-STORE 


Get next character. 
Is it)? 
Jump forward if yes. 


Before proceeding the registers are manipulated as follows: 


PUSH DE 
XORA 
PUSH AF 
PUSH BC 

LD DE,$0001 
RST $18 
POP HL 


Start goes to the machine stack. 

A register is cleared 

and saved. 

Save the length briefly. 

Assume slice starts with first character. 
Get current character. 

Pass the length to HL. 


The first parameter of the 'slice' is now evaluated. 


CP $CC 

JR Z, SL-SECOND 
POP AF 

CALL INT-EXP2 


PUSH AF 

LD D,B 

LD E,C 

PUSH HL 

RST $18 

POP HL 

CP $CC 

JR Z, SL-SECOND 
CP $29 


SL-RPT-C 
M2E38 ЈР NZ,REPORT-C 


Is the character a ТО? 

First parameter is 1, jump ahead. 
Restore AF. 

Put first parameter in BC. A is $FF 
if there was an ‘out of range’ error. 
Save the value. 

Transfer first parameter 

to DE. 

Save length. 

Get current character. 

Restore length. 

Is current character ‘TO’? 

Jump to process second parameter. 
It is a °)? 


Error - BAD BASIC. 


At this point a 'slice' of a single character has been identified. e.g. - A$(4). 


LD H,D 
LD L,E 
JR SL-DEFINE 


Last character of slice is also first 
character. 
Jump forward. 


The second parameter of a 'slice' is now evaluated. 


SL-SECOND 
M2E3F PUSH HL 
RST $20 
POP HL 
CP $29 
JR Z, SL-DEFINE 
POP AF 


208 


Save length. 

Get next character. 

Restore length. 

Is character a ‘)'? 

Yes, no 2nd parameter, jump forward. 
If first parameter was in range, A will 
be 0; else $FF. 
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CALL INT-EXP2 Put second parameter in BC. 
PUSH AF Save the error register. 

RST $18 Get current character. 

LD H,B Pass result from INT-EXP2 
LD L,C to HL. 

CP $29 Is character a ')'? 

JR NZ, SL-RPT-C No, report error. 


The 'new' parameters are now defined. 


SL-DEFINE 
M2bE52  POPAF Fetch error register. 
EX (SP),HL Second param to stack; start to HL. 
ADD HL,DE First param is added to start. 
DEC HL Back up one location. 
EX (SP),HL New start goes to stack; second param to HL. 
ANDA Subtract first parameter from second to find 
SBC HL,DE length of the slice. 
LD BC,$0000 Initialize new length. 
JR C, SL-OVER A negative slide is a null string rather than error. 
INC HL Allow for the inclusive byte. 
AND A Test the error register. 
JP M, REPORT-3 Jump if either param was out of range for string. 
LD B,H Transfer new length to BC. 
LD C,L 
SL-OVER 
M2E66 POP DE Get new start value. 
RES NUM,(IY--OFLAGS) Confirm that string is still indicated. 
SL-STORE 
M2bE6B CALL SYNTAX-Z Return if checking syntax; otherwise 
RETZ continue to STK-STORE. 


STK-STORE Subroutine 


Passes the values held in the A, B, C, D & E to the calculator stack. The stack grows by 5 
bytes with every call to this subroutine. 


Normally used to transfer the parameters of strings but it is also used by STACK-BC and 
LOG (2^4) to transfer 'small integers' to the stack. 


When storing the parameters of a string, the first value stored (coming from the A 
register) will be a zero if the string comes from an array of strings or is a 'slice' of a string. 
The value will be '1' for a complete simple string. 


This 'flag' is used in the LET command routine when the '1' signals that the old copy of 
the string is to be 'reclaimed'. 


5ТК-5Т-0 


M2E6F XORA Signal: a string from an array of strings ог а 
‘sliced’ string. 
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STK-ST-$ (PSHSTR) 


M2E70 


RES NUM,,(IY+OFLAGS) 


STK-STORE (PAEDCB) 


M2E74 


INT-EXP Subroutine 


PUSH BC 

CALL TEST-5-SP 
POP BC 

LD HL,(STKEND) 
LD (HL),A 

INC HL 
LD (HL),E 
INC HL 
LD (HL),D 
INC HL 
LD (HL),C 
INC HL 
LD (HL),B 
INC HL 
LD (STKEND),HL 
RET 


Reset to indicate a string result. 


Save BC. 

Is there room for 5 bytes? Does not return if no. 
Restore BC 

Get address of first location above current stack. 
Transfer first byte. 

Step forward. 

Transfer second and third bytes. 

For a string, these are the ‘start’. 


Step forward. 
Transfer 4th and 5th bytes. 
For a string, these are ‘length’. 


Save this address in STKEND 
and return. 


Returns the result of evaluating the next expression as an integer value in BC. Also tests 
this result against a limit-value supplied in HL. Carry flag is set if there is an out of range 
error. The A register is used as an error register and holds +00 of there is no previous 


error and +FF if there has been one. 


INT-EXP1 
M2E8A XORA 


INT-EXP2 


M2E8B 
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PUSH DE 
PUSH HL 
PUSH AF 
CALL EXPT-1NUM 


POP AF 

CALL SYNTAX-Z 
ЈК Z, I-RESTORE 
PUSH AF 

CALL FIND-INT2 
POP DE 

LD A,B 

ORC 

SCF 

JR Z, I-CARRY 
POP HL 

PUSH HL 

AND A 


Clear error register. 


Save DE and HL. 


Save AF. 

Evaluate next expression to create a last value on 
the calculator stack. 

Restore AF. 

Jump forward if syntax checking. 


Save AF. 

Last value is compressed to BC. 
Error register in DE. 

Next expression that gives zero 

is always in error, so jump forward if 
it is so. 


Get a copy of the limit value. This will be 
dimension size or string length. 
Compare result of evaluating against the 
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SBC HL,BC limit. 


The carry flag and value held in D are manipulated to give the appropriate value for the 
‘error register’. 


I-CARRY 
M2bEA6 LDA,D Fetch old error value. 
SBC A,$00 Form new error value: $00 if no error, $FF if an 
out of range error. 


Restore the registers before returning. 


I-RESTORE 

M2EA9 POP HL Restore HL and DE. 
POP DE 
RET 


DE,(DE+1) Subroutine 
Performs LD DE,(DE+1) and returns HL pointing to DE+2. 


DE,(DE+1) 
M2EAC EX DE,HL Use HL. 
INC HL Point to DE+1. 
LD E,(HL) 
INC HL 
LD D,(HL) 
RET 


GET-HL* DE Subroutine 


Unless syntax is being checked this subroutine calls HL=HL*DE. Overflow of the 16 bits in 
HL gives the report ‘out of memory’. While not exactly true, it implies that the memory is 
not large enough for the amount of memory requested. 


GET-HL*DE 
M2EB2 САШ SYNTAX-Z Return if syntax checking. 
RET Z 
CALL HL=HL*DE Perform the multiplication. 
JP C, REPORT-4 If carry is set, report out of memory. 
RET 
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LET Command Routine 
Assignment routine for LET, READ and INPUT. 


When the destination is a newly declared variable, DEST will point to the first letter of the 
variable's name as it occurs in the BASIC line. Bit 1 of FLAGX will be set. 


If the destination variable exists already then bit 1 of FLAGX will be reset and DEST will 
point for a numeric variable to the location before the five bytes of the old number; and 
for a string variable to the first location of the old string. 


The use of DEST applies to simple variables and to elements of arrays. 


Bit О of FLAGX is set if the destination variable is a complete simple string variable, 
meaning the old copy should be deleted. 


Initially the current value of DEST is collected and bit 1 of FLAGS tested. 


LET 

M2EBD LD HL,(DEST) Get the address of DEST. 
BIT UNFND,(IY+OFLAGX) Jump if handling a variable that exists. 
JR Z, L-EXISTS 


A newly declared variable is being used. Find the length of its name. 
LD BC,$0005 Assume it is numeric; set aside 5 bytes. 


Enter a loop to deal with the characters of a long name. Spaces or color codes in the 
name are ignored. 


L-EACH-CH 
M2EC9 INC BC Add 1 to the counter for each character in name. 
L-NO-SP 
M2ECA INC HL Move through variable name. 
LD A,(HL) Get the code. 
CP $20 Jump back if it's a space. 
JR Z,L-NO-SP 
JR NC,L-TEST-CH Jump forward if code is $21 - $44. 
CP $10 If less than $10, accept as end of name. 
JR C, L-SPACES 
CP $16 Also accept $16 to $1F. 
JR NC, L-SPACES 
INC HL Step past control code after INK or OVER. 
JR L-NO-SP Jump back; treat as spaces. 


Separate 'numeric' and 'string' names. 
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L-TEST-CH 

M2EDD САШ ALPHANUM Is the code alphanumeric? 
JR C, L-EACH-CH If so, accept as character of a long name. 
CP $24 It is a '$'? 
ЈР Z, L-.NEWS Jump forward to handling as string. 


The 'newly declared numeric variable' will require 'BC' spaces in the variables area for its 
name and its value. The room is made available and the name of the variable is copied 
over with the characters being 'marked' as required. 


L-SPACES 

M2bEE7 LDA,C Copy length to A. 
LD HL,(ELINE) Make HL point to the $80 byte at end of 
DEC HL the variables area. 
CALL MAKE-ROOM Open up variables area. 
INC HL Point to first new byte. 
INC HL Point to second new byte. 
EX DE,HL Make DE point to it. 
PUSH DE Save pointer. 
LD HL,(DEST) Get the pointer to the start of the name. 
DEC DE Make DE point to the first new byte. 
SUB $06 Make B hold number of extra letters in name. 
LD B,A 
JR Z, L-SINGLE Jump forward for short variable names. 


The 'extra' codes of a long name are passed to the variables area. 


L-CHAR 

M2EFC INC HL Point to each extra code. 
LD A,(HL) Get the code. 
CP $21 Accept codes from $21 to $FF. 
JR C, L-CHAR Ignore codes $00 to $20. 
OR $20 Set bit 5, for lower case letters. 
INC DE Transfer codes to the 2nd new 
LD (DE),A byte onwards. 
DJNZ L-CHAR Loop back for all extra codes. 


The last code of a long variable name is ORed with $80. 


OR $80 Mark last code as required 
LD (DE),A and overwrite. 


The first letter of the name of the variable being handled is now considered. 


LD A,$CO Mark the letter for a long name. 
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L-SINGLE 

M2FOD LD HL,(DEST) Get the pointer to the letter. A is $00 
XOR (HL) for short name and $СО for long name. 
OR $20 Set bit 5 for lower case. 
POP HL Drop pointer. 


Call L-FIRST to enter the ‘letter’ into its appropriate location. 
CALL L-FIRST 


The ‘last value’ is transferred to the variables area. At this point, HL always points to the 
location after the five locations allotted to the number. A 'RST 0028' instruction is used to 
call the CALCULATOR and the 'last value' is deleted. However this value is not 
overwritten. 


L-NUMERIC 
M2F17 PUSH HL Save destination pointer. 
RST $28 Call calculator. 
DEFB $02 DROP 
DEFB $38 QUIT 
POP HL Restore pointer. 
LD BC,$0005 Give number length of 5 bytes. 
ANDA Make HL point to first of five 
SBC HL,BC and jump forward to make 
JR L-ENTER transfer. 


Come here if considering a variable that 'exists already'. First bit 6 of FLAGS is tested so 
as to separate numeric variables from string or array of string variables. 


L-EXISTS 
M2F24  BIT NUM,(IY--OFLAGS) Jump forward if handling a string 
JR Z, L-DELETE$ variable. 


For numeric variables the 'new' number overwrites the 'old' number. So first HL has to be 
made to point to the location after the five bytes of the existing entry. At present HL 
points to the location before the five bytes. 


LD DE,$0006 Five bytes for a number plus 1. 
ADD HL,DE HL points after. 
JR L-NUMERIC 


The parameters of the string variable are fetched and complete simple strings separated 
from 'sliced' strings and array strings. 


L-DELETE$ 

M2F30 LD HL,(DEST) Fetch the start. 
LD BC,(STRLEN) Get the length. 
BIT FLEX,(IY+OFLAGX) Jump if dealing with a simple string. 
JR NZ, L-ADD$ 


When dealing with a 'slice' of an existing simple string, a 'slice' of a string from an array of 
strings or a complete string from an array of strings there are two distinct stages involved. 
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The first is to build up the 'new' string in the work space, lengthening or shortening it as 
required. The second stage is then to copy the 'new' string to its allotted room in the 
variables area. However do nothing if the string has no ‘length’. 


LD A,B Return if the string is 
ORC a null string. 
RET Z 


Then make the required number of spaces available in the work space. 


PUSH HL Save the start (DEST). 

RST $30 Make the necessary room in workspace. 
PUSH DE Save pointer to first location. 

PUSH BC Save length. 

LD D,H Make DE point to the 

LD E,L last location. 

INC HL Make HL point one past new location. 
LD (HL),$20 Enter a space character. 

LDDR Copy space into all new locations. 


The parameters of the string being handled are now fetched from the calculator stack. 


PUSH HL Save the pointer. 
CALL STK-FETCH Get new parameters. 
POP HL Restore the pointer. 


Note: At this point the required amount of room has been made available in the work 
space for the ‘variable in assignment’. e.g. For statement - LET A$(4 to 8)="abcdefg" - 
five locations have been made. The parameters fetched above as a ‘last value’ represent 
the string that is to be copied into the new locations with Procrustean lengthening or 
shortening as required. The length of the 'new' string is compared to the length of the 
room made available for it. 


EX (SP),HL Length of new area in HL, pointer to stack. 
AND A Compare two lengths and jump 

SBC HL,BC forward if the new string will fit in the space. 
ADD HL,BC 

JR NC, L-LENGTH 

LD B,H Modify new length if it 

LD C,L is too long. 


215 


HOME ROM 


L-LENGTH 
M2F59 ЕХ (SP),HL Length of new area to stack, pointer to HL. 


As long as the new string is not a ‘null string’ it is copied into the work space. Procrustean 
lengthening is achieved automatically if the 'new' string is shorter than the room available 
for it. 


EX DE,HL Start of new string to HL, pointer to DE. 
LD A,B Jump forward if the new string is null. 

OR C 

JR Z, L-IN-W/S 

LDIR Otherwise move new string to workspace. 


The values that have been saved on the machine stack are restored. 


L-IN-W/S 

M2F61 POP BC Length of new area. 
POP DE Pointer to new area. 
POP HL Start: pointer to variable. 


L-ENTER Subroutine 


This short subroutine is used to pass either a numeric value, from the calculator stack, or a 
string, from the work space, to its appropriate position in the variables area. The 
subroutine is therefore used for all except ‘newly declared’ simple strings and ‘complete 
& existing’ simple strings. 


L-ENTER 
M2F64 EX DE,HL Change the pointers. 
LD A,B Check again that the length is not zero. 
ORC 
RET Z 
PUSH DE Save destination pointer. 
LDIR Move numeric value or string. 
POP HL Return with HL pointing to first byte 
RET or numeric value or string. 


LET Subroutine Continues 


When handling a 'complete & existing’ simple string the new string is entered as if it were 
a 'newly declared’ simple string before the existing version is 'reclaimed'. 


L-ADD$ 

M2F6D DEC HL Make HL point to the letter of the variable's 
DECHL name. 
DEC HL 
LD A,(HL) Pick up the letter. 
PUSH HL Save the pointer to the existing version. 
PUSH BC Save the length of the existing string. 
CALL L-STRING Add the new string to the variable area. 
POP BC Restore the length. 
POP HL Restore the pointer. 
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INC BC All one byte for the letter and 
INC BC two bytes for the length. 

INC BC 

JP RECLAIM-2 Exit to reclaim space. 


‘Newly declared’ simple strings are handled as follows: 


L-NEW$ 

M2F7E LDA,$DF Prepare the marking of the variable letter. 
LD HL,(DEST) Get pointer to letter. 
AND (HL) Mark as required. 


L-STRING Subroutine 


The parameters of the 'new' string are fetched, sufficient room is made available for it 
and the string is then transferred. 


L-STRING 
M2F84 PUSH AF Save the variable’s letter. 
CALL STK-FETCH Get the start and length of the new string. 
EX DE,HL Move start to HL. 
ADD HL,BC Make HL point one past string. 
PUSH BC Save length. 
DECHL Make HL point to start of string. 
LD (DEST),HL Save pointer. 
INC BC Allow one byte for the letter and two 
INC BC bytes for the length. 
INC BC 
LD HL,(ELINE) Make HL point to the $80 byte. 
DEC HL 


CALL MAKE-ROOM 
LD HL,(DEST) 


POP BC Make a copy of length 

PUSH BC of the new string. 

INC BC Add one to length in case new string is null. 
LDDR Make copy of new string plus one byte. 
EX DE,HL Make HL point to the byte 

INC HL that is to hold the high-length. 

POP BC Get length. 

LD (HL),B Enter the high-length. 

DEC HL Back one. 

LD (HL),C Enter low-length. 

POP AF Get the variable’s letter. 


Open up the variables area. 
Restore pointer to the end of new string. 
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L-FIRST Subroutine 


Entered with the letter of the variable, suitably marked, in the A register. The letter 
overwrites the ‘old 80-byte' in the variables area. Returns with HL pointing to the 'new 
80-byte'. 


L-FIRST 

M2FA8 DEC HL Make HL point to the old $80 byte. 
LD (HL),A Overwrite with letter of variable. 
LD HL,(ELINE) Make HL point to new $80 byte. 
DEC HL Finish with all the newly declared 
RET variables. 


STK-FETCH Subroutine 


Collects the last value from the calculator stack. The five bytes can be either a floating- 
point number, in short or long form, or set of parameters that define a string. 


STK-FETCH (PGPSTR) 


M2FAF LD HL,(STKEND) Get end of stack. 
DEC HL Back up one value. 
LD B,(HL) Get the fifth value. 
DEC HL Back up. 

LD C,(HL) Get fourth value. 

DEC HL Back up. 

LD D,(HL) Get third value. 

DEC HL Back up. 

LD E,(HL) Get second value. 
DEC HL Back up. 

LD A,(HL) Get first value. 

LD (STKEND),HL Save the new STKEND. 
RET 


DIM Command Routine 


Creates new arrays in the variables area. Starts by searching existing variables for an 
existing array with the same name. If an array is found, it is reclaimed before the new 
array is created. New numeric arrays have all elements set to zero. New string arrays are 
set to spaces. 


DIM 
M2FCO CALL LOOK-VARS Search for the variable. 
D-RPORT-C 
M2FC3 ЈР NZ,REPORT-C If there is an error, REPORT С. 
CALL SYNTAX-Z Jump forward if interpreting. 
JR NZ, D-RUN 
RES 6,C Test syntax for string arrays as if 
CALL STK-VAR they were numeric. 
CALL CHECK-END Move on to next statement if ok. 


An existing array is reclaimed. 
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D-RUN 
M2FD3 JRC, D-LETTER Jump forward if there is no prior array. 
PUSH BC Save discriminator byte. 
CALL NEXT-ONE Find start of the next variable. 
CALL RECLAIM-2 Reclaim the prior array. 
POP BC Restore the discriminator byte. 


The initial parameters of the new array are found. 


D-LETTER 

M2FDD SET 7,C Set bit 7 of discriminator byte. 
LD B,$00 Make dimension counter zero. 
PUSH BC Save both. 
LD HL,$0001 Put size of elements in HL; 1 for 
BIT 6,C string array, 5 for numeric. 
JR NZ, D-SIZE 
LD L,$05 

D-SIZE 

M2FEB 
EX DE,HL Put element size in DE. 


This loop is accessed for each dimension specified in the parenthesized expression of the 
DIM statement. The total number of bytes required for the elements of the array is built 
up in the DE register pair. 


D-NO-LOOP 
M2FEC RST $20 Advance CH_ADD through each pass. 
LD H,$FF Set the limit value. 
CALL INT-EXP1 Evaluate a parameter. 
ЈР C, REPORT-3 Error if out of range. 
POP HL Get dimension counter and discriminator byte. 
PUSH BC Save parameter on each pass through loop. 
INC H Increase dimension counter on each pass. 
PUSH HL Restock the dimension counter and discriminator 
byte. 
LD H,B Move parameter to HL pair. 
LD L,C 
CALL GET-HL*DE Byte total is built in HL and moved to DE. 
EX DE,HL 
RST $18 Get current character. 
CP $2C Go around the loop again if there is 
JR Z,D-NO-LOOP another dimension. 


At this point DE holds the number of bytes required for the elements of the new array 
and the size of each dimension is on the machine stack. Check that there is indeed a 
closing bracket to the parenthesized expression. 


CP $29 Is current character a ')'? 
JR NZ, D-RPORT-C Jump back if not. 
RST $20 Move CH, ADD past character. 
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Now make room for the dimension-sizes. 


POP BC 
LDA,C 

LD LB 

LD H,$00 
INC HL 
INC HL 
ADD HL,HL 
ADD HL,DE 
JP С, REPORT-4 
PUSH DE 
PUSH BC 
PUSH HL 
LD B,H 

LD C,L 


Get dimension counter and discriminator byte. 
Put discriminator byte in A. 

Move counter to L. 

Clear H. 

Increase dimension counter by 

two and double the result to get 

correct overall length for the variable 

by adding the element byte total. 

Give "out of memory" if necessary. 

Save element byte total. 

Save dimension counter and discriminator byte. 
Save overall length. 

Move overall length to BC. 


Make room for the new array at the end of the variables area. 


Save the parameters in variables area. 


Clear elements of the new array. 
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LD HL,(ELINE) 

DEC HL 

CALL MAKE-ROOM 
INC HL 


LD (HL),A 
POP BC 
DEC BC 
DEC BC 
DEC BC 
INC HL 
LD (HL),C 
INC HL 
LD (HL),B 
POP BC 
LD A,B 
INC HL 
LD (HL),A 


LD H,D 

LD L,E 

DEC DE 

LD (HL),$00 

BIT 6,C 

JR Z, DIM-CLEAR 
LD (HL),$20 


Make HL point to the $80 byte. 


Create the space. 
Point HL to the first new space. 


Store the letter. 
Get overall length and subtract 3. 


Advance HL. 

Store the low length. 
Advance HL. 

Store high length. 

Get dimension counter. 
Move itto A. 

Advance A. 

Store dimension counter. 


Point HL to last location of the array 
and DE to location before it. 


Put a zero in the location; overwrite 
with space if it's a string array. 
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DIM-CLEAR 
M303A POP BC Fetch element byte total. 
LDDR Clear array and one extra location. 


Save the dimension size. 


DIM-SIZES 
M303D 
POP BC Get the dimension size. 
LD (HL),B Save the high byte. 
DEC HL Go back one. 
LD (HL),C Save the low byte. 
DEC HL Back again. 
DECA Decrement the dimension counter. 
JR NZ, DIM-SIZES Repeat until all dimensions have 
RET been stored. 


ALPHANUM Subroutine 


Returns with the carry flag set if the value of the A register is a valid digit or letter. 


ALPHANUM (ALNUMQ) 


M3046 САП NUMERIC Test if this is a digit; carry will be reset if so. 
CCF Complement the flag. 
КЕТ C Return if set. 


ALPHA Subroutine 


Return with carry set if the character in A is an alpha character. 


ALPHA (ALPHAQ) 

M304B CP 'А' Test against A ($41). 
CCF Complement carry flag. 
RET NC Return if not a valid character code. 
СРТ Test against "|" ($5B), one more than "Z". 
RET C Uppercase letter (A..Z), return with carry set, 
CP 'a' Test against a ($61). 
CCF Complement the carry flag. 
RET NC Return if not a valid character code. 
СР" Test against "{" ($7B), one more than "z". 
RET Lowercase letter (a..z) so return with carry set. 


Decimal To Floating Point Subroutine (STKUSN) 


As part of syntax checking, decimal numbers that occur in a BASIC line are converted to 
floating-point forms. This subroutine reads the decimal number digit by digit and gives its 
result as a last value on the calculator stack. But first it deals with the alternative notation 
BIN, which introduces a sequence of 0's and 1's giving the binary representation of the 
required number. 
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DEC-TO-FP (STKUSN) 
M3059 CP $C4 
JR NZ,NOT-BIN 
LD DE,$0000 


BIN-DIGIT 

M3060 RST $20 
SUB '1' 
ADC A,$00 


JR NZ,BIN-END 


ADC HL,HL 

JP С, REPORT-6 
EX DE,HL 

JR BIN-DIGIT 


BIN-END 


LD СЕ 
JP STACK-BC 


Jump if not BINary number. 


Initialize DE. 


Get next character. 

Subtract code for "1". 

A will be 0; bit О will have carry set. Bit 1 
will have carry reset. 

Any other character causes jump. 
Save result so far to HL. 

Carry will be 1 for 1 and 0 for 0. 
Shift the result into DE. 

Number > 65535 is an error. 

Put result back into DE. 

Go back for the next digit. 


Copy result to BC 
then stack BC. 


For other numbers, any integer part is converted first. If the next character is a decimal, 


then the decimal fraction is considered. 


NOT-BIN (STKNUM) 
M3076 СР"! 
JR Z,DECIMAL 
CALL INT-TO-FP 
СР '.' 


ЈК NZ,E-FORMAT 


RST $20 

CALL NUMERIC 
JR C,E-FORMAT 
JR DEC-STO-1 


DECIMAL 
M3089 RST $20 
CALL NUMERIC 


DEC-RPT-C 
M308D JP C,REPORT-C 
RST $28 
DEFB $A0 
DEFB $38 
DEC-STO-1 
M3093 RST $28 
DEFB $A1 
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Jump if first character is a decimal point. 


Stack the integer portion of the number. 
Jump if not decimal point and check 

for an exponent. 

Get next character 

Not a digit, so see if 

itis an "E" or "e" for an exponent. 

Build the fractional portion of the number. 


Get next character. 
Jump if it is not a decimal digit. 


Report an error if it is not. 

Call calculator. 

Use the calculator to stack the integer 
part. 


Call calculator. 
Find the floating point version of 1 


DEFB %С0 
DEFB $02 
DEFB $38 


NXT-DGT-1 
M3098 RST $18 


CALL STK-DIGIT 
JR C,E-FORMAT 


RST $28 


DEFB $EO 
DEFB $A4 
DEFB $05 
DEFB %С0 
DEFB $04 
DEFB $0F 
DEFB $38 


RST $20 


JR NXT-DGT-1 


HOME ROM 


and save it to the memory area. 


Get current character. 

Jump if the character was not 

a decimal digit. 

Call calculator. 

For each iteration of the loop, 

the number saved in the memory is fetched, 
divided by 10 and restored. 


Multiplied by the saved number and added 
to the last value. 


Get next character. 
Loop until done. 


Process E notation, i.e. xEm or xem where m is a positive or negative integer. 


E-FORMAT 
M30A9 CP 'E' 


JR Z,SIGN-FLAG 


CP 'е' 
RET NZ 


SIGN-FLAG 

M30BO  LD B,$FF 
RST $20 
CP $2B 


JR Z,SIGN-DONE 


CP $2D 


JR NZ,ST-E-PART 


INC B 


SIGN-DONE 
МЗОВС RST $20 


ST-E-PART 


M30BD CALL NUMERIC 
JR C,DEC-RPT-C 
PUSH BC 
CALL INT-TO-FP 
CALL FP-TO-A 


POP BC 


JP C,REPORT-6 


AND A 


JP M, REPORT-6 


INC B 


Jump if an exponent is present. 


Is it lowercase e? 
Return if no exponent 


Use B as sign flag. $FF for +. 
Get next character. 

It is it a plus? 

If yes, jump forward. 

Is it a minus? 

Neither, jump forward. 
Change sign of flag. 


Get next character. 


Jump if A is not a decimal digit. 
Report an error if not. 

Save the B flag. 

Stack ABS m (the exponent). 
Transfer ABS m to A. 

Restore B flag. 

Report overflow if ABS m is >255 


or >127. 
Test the sign flag in B. + will set to $0. 
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JR 7, E-FP-JUMP Jump if sign is +. 
NEG Negate m if sign is -. 
E-FP-JUMP 
M30D6 JP E-TO-FP Jump to assign to the last value the result 
of х*10^т. 


Numeric Subroutine 


Checks to see if a character is between '0' and '9'. Will return with carry set if not a digit. 


NUMERIC (DIGITQ) 
M30D9 CP $30 Return if less than 'O'. 
КЕТ C 
CP $3A Is it 9 or less? 
CCF Make carry correct for return. 
RET 


STK DIGIT Subroutine 


Returns if the current value in A does not represent a digit. If it does, put the floating- 
point form of the digit on the calculator stack. Makes an ASCII character for a decimal 
digit into its binary representation. CF = 1 if not a digit 


STK-DIGIT (ASC2BIN?) 


МЗОЕО САШ NUMERIC Return if A is not a digit. 
КЕТ C 
SUB $30 Make A the binary value of the digit. 


STACK-A Subroutine 


Put A onto the calculator stack. Munges BC. 
STACK-A (STK_A) 


M3OE6 LDC,A Save A to BC. 
LD B,$00 Clear B. 


STACK-BC Subroutine 


Gives the floating-point form of the absolute binary value in BC. The form used in this 
and hence in the two previous subroutines as well is the one reserved in the computer for 
small integers n, where -65535 <= n <= 65535. 


The first and fifth bytes are zero; the third and fourth bytes are the less significant and 


more significant bytes of the 16 bit integer n in two's complement form (if n is negative, 
these two bytes hold 65536+n); and the second byte is a sign byte, 00 for '+' and FF for 


STACK-BC (STK BC) 


M3OE9 LD IY, ERR NR Re-initialize IY to ERR NR. 
XORA Clear A. 
LD E,A And E, to indicate positive value. 


224 


HOME ROM 


LD D,C Copy least significant byte to D. 
LD C,B Copy most significant byte to C. 
LD B,A Clear B. 

CALL STK-STORE Stack the number. 

RST $28 Make HL point to STKEND-5. 
DEFB $38 

AND A Clear carry flag. 

RET 


Integer To Floating-Point Subroutine 


Returns a last value on the calculator stack that is the result of converting an integer ina 
BASIC line, i.e. the integer part of the decimal number or the line number, to its floating- 
point form. 


Repeated calls to CH. ADD- 1 fetch each digit of the integer in turn. Exits when a code 
that does not represent a digit has been fetched. 


Carry flag set if character is not a decimal digit. 


INT-TO-FP (ININT) 


M30F9 PUSH AF Save the first digit in A. 
RST $28 Call calculator. 
DEFB $АО Set last value to zero. 
DEFB $38 
POP AF Restore the first digit. 


As long as the code represents a digit, the digit is stacked under the last value. The last 
value is then multiplied by decimal 10 and added to the digit to form a new last value 
which is carried back to the start of the loop. 


NXT-DGT-2 
M30FE CALL STK-DIGIT If the code represents a digit, stack it. 
RET C Return if the character was not a digit. 
RST $28 Call calculator. 
DEFB $01 Digit goes under last value. 
DEFB %А4 Define decimal 10. 
DEFB $04 Multiply last value by 10. 
DEFB $0F Add digit to last value. 
DEFB $38 
CALL CH_ADD+1 Get the next character. 
JR NXT-DGT-2 Loop back and process. 
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Arithmetic Routines 


The TS 2068 stores numbers in two ways: 


* Integer values in the range -65535 to +65535 аге іп an integral (or short) form. 
* All other numbers are stored in a five byte floating point form. 


E-Format To Floating-Point Subroutine 


Puts number on the top of the calculator stack that is the result of converting the number 
given in the form xEm, where m is a positive or negative integer. 


Entered with x at the top of the calculator stack and m in A. Finds the absolute value of m 
and multiplies or divides x by 104m according to whether m is positive or negative. 


Е-ТО-ЕР (ХЕҮ) 


M310D RLCA Test the sign of m by rotating bit 7 to carry. 
RRCA 
JR NC, E-SAVE Jump if m is positive. 
CPL Negate m in A without disturbing carry. 
INCA 

E-SAVE 


M3113 PUSH AF 
LD HL,MEMBOT 


Save m. 
Sign flag is stored in first byte. 


CALL FP-0/1 
RST $28 Call calculator. 
DEFB $A4 x10 
DEFB $38 
POP AF Recall in A. 
E-LOOP 
M311E SRLA Short out the next bit of m. 
JR NC,E-TST-END Jump if carry is set. 
PUSH AF Save the rest of m. 
RST $28 Call calculator. 
DEFB $C1 10^(2^n) 
DEFB $EO Jump true. 
DEFB $00,$04 IFJUMP E-DIVSN 
DEFB $04 х 10 
DEFB $33,$02 JUMP E-FETCH 
E-DIVSN 
M312B DEFB $05 DIV 
E-FETCH 
M312C DEFB $E1 MEM 1 -> T 
DEFB $38 QUIT 
POP AF Restore rest of m in A. 
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E-TST-END 
M312F JRZ, E-END If m has been reduced to zero, jump. 
PUSH AF Save m. 
RST $28 Call calculator. 
DEFB $31 DUP 
DEFB $04 TIMES 
DEFB $38 QUIT 
POP AF Recall m. 
JR E-LOOP Loop until all bits of m processed. 
E-END 
M3139 RST $28 Call calculator. 
DEFB $02 Deleted the final power of 10, leaving 
DEFB $38 the last value of x*10^m on the stack. 
RET 


INT-FETCH Subroutine 


Stores small integer n (-65535<=n<=65535) from location HL in DE. Does not delete the 
number from the stack or from memory. HL points to the sign byte of the integer value. C 
has the sign byte. 


INT-FETCH (INT2COMPL) 
M313D INC HL Point to the sign byte. 
LD C,(HL) Move sign byte to C. 


The following will two's complement the number if negative (C is FF) but leave it alone if 
positive (C is 00). 


INC HL Get least significant byte of integer. 

LD A,(HL) Move to A. 

XOR C Generate the two's complement. 

SUB C of the least significant byte and store to 
LDE,A Е. 

INC HL Advance HL. 

LD A,(HL) Generate the two's complement 

ADC A,C of the most significant byte and store to 
XORC E. 

LD D,A Move most significant byte to D. 

RET 


INT-STORE Subroutine 


Store the number in DE as an unsigned integer. Returns HL pointing to the first byte of n 
on the stack. 


P-INT-STO (STDE U) 
M314A LD C,$00 


Set up to store number known to be positive. 
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INT-STORE (STDE_S) 
Store the integer number in CDE to (HL). Take the two's complement of the number prior 
to storage. 


M314C PUSH HL Pointer to first location saved. 
LD (HL),$00 First byte set to zero. 
INC HL 
LD (HL),C Save second byte. 


Same mechanism as used in INT-FETCH to two's complement negative numbers. 
Required before and after multiplication of small integers. Addition is performed without 
further two's complementing. 


INC HL Point to 3rd location. 

LDA,E Get least significant byte. 
XOR C Two's complement if negative. 
SUB C 

LD (HL),A Store the byte. 

INC HL Point to 4th location. 

LD A,D Get most significant byte. 
ADC A,C Two's complement if negative. 
XOR C 

LD (HL),A Save the byte. 

INC HL Point to 5th location. 

LD (HL),$00 Set it to zero. 

POP HL Restore the number pointer 1st byte of n 
RET on the stack. 


Floating-Point To BC Subroutine 


Compresses floating-point last value into BC. Returns with the carry flag set if the result is 
too large (>65536 decimal). Zero flag is reset if the last value is negative. The low byte of 
the result is also copied to A. 


FP-TO-BC (FP2BC) 


M3160 RST $28 Call calculator. 
DEFB $38 Loads HL with the low byte of the value. 
LD A,(HL) Put exponent byte in A. 
AND A Jump if it is already an integer. 
JR Z,FP-DELETE 
RST $28 Call calculator. Round the value on 
DEFB $A2 the calc stack. 
DEFB $0F 
DEFB $27 
DEFB $38 
FP-DELETE 
M316B RST $28 Call calculator. Drop the top of the calc stack 
DEFB $02 since it will now be put in the 
DEFB $38 BC register. 
PUSH HL Save the registers 
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PUSH DE DE contains the address of the dropped value. 
EX DE,HL HL points to the dropped value. 

LD B,(HL) Save the sign byte 

CALL INT-FETCH Copy bytes 2, 3, and 4 to C, E and D. 
XORA Clear A. 

SUB B Set the carry unless B is zero. 

BIT 7,C Set the zero flag if number is positive. 
LD B,D Copy value to BC. 

LD C,E 

LD A,E Copy E to A. 

POP DE Restore registers. 

POP HL 

RET 


LOG (2^А) Subroutine 


Calculates the approximate number of digits before the decimal in x, the number to be 
printed, or, if there are no digits before the decimal, then the approximate number of 
leading zeros after the decimal. Entered with A containing е”, the true exponent of x, or 
e'-2, and calculates z=log to the base 10 of (2A). Sets A equal to ABS INT (Z + 0.5), as 
required, using FP-TO-A for this purpose. 


LOG(2^A) 
M317F LDD,A Stack A as 00 00 A 00 00 (for positive A) or 
RLA 00 FF A FF 00 (for negative A). 
SBC A,A 
LD E,A Bytes are loaded into A, E, D, C, B and then 
LD C,A STK-STORE is called 
XORA to put the number 
LD B,A of the calculator stack. 
CALL STK-STORE 
RST $28 Call calculator. 
DEFB $34, 


DEFB $EF,$7F 
DEFB $1A,$20,$9A,$85 


DEFB $04 TIMES 
DEFB $27 INT 
DEFB $38 QUIT 


Floating-Point To A Subroutine 
Uses FP-TO-BC to get the last value into A where possible. 


Tests whether the modulus of the number rounds to more than 255 and if it does, returns 
with the carry flag set. Otherwise, returns with the modulus of the number, rounded to 
the nearest integer in A and the zero flag set to indicate that the number was positive, or 
reset for negative. 
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FP-TO-A (FP2A) 


M3193 


CALL FP-TO-BC 


Convert the top of calculator stack to BC. 


RET C Return if number was greater than 255. 
PUSH AF Save A. 
DEC B Test if out of range. 
INC B Jump if the sign byte is O. 
ЈК Z,FP-A-END 
POP AF Restore A. 
SCF Set carry if value was negative. 
RET 
FP-A-END 
M319F POP AF Restore A. 
RET 


Print a Floating-Point Number Subroutine (OUTPUT) 


Converts number to string for printing. Prints x, the last value on the calculator stack. Print 
format never occupies more than 14 spaces. 


The 8 most significant digits of x, correctly rounded, are stored in an ad hoc print buffer 
in mem-3 and mem-4. Small numbers, numerically less than 1, and large numbers, 
numerically greater than 2427, are dealt with separately. 


The former are multiplied by 10^n, where n is the approximate number of leading zeros 
after the decimal, while the latter are divided by 10^(n-7), where n is the approximate 
number of digits before the decimal. 


Printing is done using E-format if there are more than 8 digits before the decimal or for 
small numbers with more than 4 leading zeros after the decimal. 


PRINT-FP (OUTPUT) 


M31A1 RST $28 Call calculator. 
DEFB $31 DUP 
DEFB $36 MINUSO 
DEFB $00,$0B IFJUMP PF-NEGATVE 
DEFB $31 DUP 
DEFB $37 PLUSO 
DEFB $00,$0D IFJUMP PF-POSTVE 
DEFB $02 DROP 
DEFB $38 QUIT 
LD A,$30 Character code for 0. 
RST $10 Print О. 
RET 
PF-NEGTVE 
М31В0  DEFB $2A .abs 
DEFB $38 .end 
LD A, 2DH ut 
RST $10 Print the minus. 
RST $28 Call calculator. 
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PF-POSTVE 
М31В6 DEFB $A0 CONST 0 (0) 
DEFB $C3 T -> MEM 3 
DEFB $C4 T -> MEM 4 
DEFB $C5 Т -> МЕМ 5 
DEFB $02 DROP 
DEFB $38 QUIT 
EXX H'L', used to cold calculator offsets (for STR$) 
PUSH HL is saved to the stack. 
EXX 


Start of a loop which deals with large numbers. Every number x is split into its integer 
part i and the fractional part f. If i is a small integer (-65535 <= i <= 65535), it is stored in 
D'E' for insertion into the print buffer. 


PF-LOOP 
M31BF  RST $28 Call calculator. 
DEFB $31 DUP 
DEFB $27 INT 
DEFB $C2 T-» MEM2 
DEFB $03 SUB 
DEFB $E2 MEM 2 -> T 
DEFB $01 SWAP 
DEFB $C2 Т -> МЕМ 2 
DEFB $02 DROP 
DEFB $38 QUIT 
LD A,(HL) Is ia small integer? 
AND A 
JR NZ, PF-LARGE Jump if not. 
CALL INT-FETCH i copied to DE. 
LD B,$10 B set to count 16 bits. 
LD A,D D copied to A for testing. 
AND А Is it zero? 
JR NZ, PF-SAVE Jump if not zero. 
ORE Test E. 
JR Z, PF-SMALL Jump if DE zero: x is a pure fraction. 
LD D,E Move E to D and set B for 8 bits. 
LD B,$08 D was zero and E was not. 
PF-SAVE 
M31DC PUSH DE Transfer DE to D'E'. 
EXX 
POP DE 
EXX 
JR PF-BITS 


Pure fractions are multiplied Бу 10^n, where n is the approximate number of leading 
zeros after the decimal; and -n is added to the second byte of mem-5, which holds the 
number of digits needed before the decimals; a negative number here indicates leading 
zeros after the decimal. 
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PF-SMALL 


M31E2 


RST $28 
DEFB $02 
DEFB $E2 
DEFB $38 
LD A,(HL) 
SUB $7E 


CALL LOG(2^A) 
LD DA 

LD A,(MEM5+1) 
SUB D 

LD (MEM5+1),A 
LD A,D 

CALL E-TO-FP 
RST $28 

DEFB $31 

DEFB $27 
DEFB $C1 
DEFB $03 
DEFB $E1 

DEFB $38 
CALL FP-TO-A 
PUSH HL 

LD (MEM3),A 
DECA 

RLA 

SBC A,A 

INCA 

LD HL,MEM5 
LD (HL),A 

INC HL 

ADD A,(HL) 

LD (HL),A 

POP HL 

JP PF-FRACTN 


Call calculator. 

DROP 

MEM 2 -> T 

QUIT 

Exponent byte e of f is copied to A. 

A becomes e-126, e'+2, where е' is true 
exponent of f. 


n copied from A to D. 
Current count collected from second byte of 
mem-5 and n is subtracted from it. 


n copied from D to A. 

y=f*104n performed and stacked. 
Call calculator. 

DUP 

INT 

Т-> MEM 1 

SUB 

MEM 1 -> T 

QUIT 

i2 is transferred from stack to A. 
Pointer to f2 is saved. 

i2 stored in first byte of mem3. 

i2 will not count as digit for printing if it's 0. 


A manipulated so that non-zero result will 
produce 1. 

Zero or one is inserted into first byte of тето. 
And added to second byte of mem5. 


Restore pointer to f2. 
Jump to store f3 in buffer. 


Numbers greater than 2^27 are multiplied by 24(-n+7), reducing the number of digits 
before the decimal to 8, and the loop is re-entered at PF-LOOP. 


PF-LARGE 
M3215 SUB $80 
CP $1C 
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JR C, PF-MEDIUM 


CALL LOG(2^A) 
SUB $07 

LD ВА 

LD HL,MEM5+1 
ADD A,(HL) 


e-$80 = e', the true exponent of i. 

Is it less than 28 decimal? 

Jump if less. 

n is built in A. 

And reduced to n-7. 

Copy to B. 

Added to second byte of mem5, 

the number of digits required before 


LD (HL),A 

LD A,B 

NEG 

CALL E-TO-FP 
JR PF-LOOP 
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the decimal. 
i is multiplied by 104(-n+7). 
To bring into medium range for printing. 


Loop again to handle medium-sized number. 


Integer part of x is stored in the print buffer in mem-3 and mem-4. 


PF-MEDIUM 
M322E EX DE,HL 
CALL FETCH-TWO 
EXX 
SET 7,D 
LDA,L 
EXX 
SUB $80 
LD BA 


DE points to i, HL to f. 
Mantissa of i is in D',E',D,E. 
Exchange registers. 

True numerical bit 7 to D'. 
Exponent byte e of i to A. 
Back to main registers. 
True exponent e' to A. 

B holds required bit count. 


When i is a small integer (less than 65536), re-enter here. 


PF-BITS 
M323A SLAE 
RLD 
EXX 
RLE 
RLD 
EXX 
LD HL,MEM4+4 
LD C,$05 


PF-BYTES 
M3249 LD A,(HL) 
ADC A,A 
DAA 
LD (HL),A 
DEC HL 
DECC 
JR NZ,PF-BYTES 
DJNZ PF-BITS 


Mantissa of i is rotated left and 

all bits of i are shifted into mem4 
and each byte of mem4 is decimal 
adjusted after each shift. 

All four bytes of i. 

Back to the main registers. 

Address of 5th byte of mem4 to HL. 
Count of 5 bytes in C. 


Get the byte of mem4 to HL. 
Shift left, taking in each new bit. 
Decimal adjust the byte. 
Restore it to mem4. 

Point to next byte of mem4. 
Decrease byte count by one. 
Loop for each byte of mem4. 
Loop for each bit of INT (x). 


Decimal adjusting each byte of mem-4 gave 2 decimal digits per byte, at most 9 digits. 
Digits will now be repacked, one to a byte, in mem-3 and mem-4, using the instruction 


RLD. 


233 


HOME ROM 


XOR A 

LD HL,MEM4 
LD DE,MEM3 
LD B,$09 
RLD 

LD C,$FF 


PF-DIGITS 
M3260 RLD 


JR NZ, PF-INSERT 
DECC 
INC C 
JR NZ, PF-TEST-2 


PF-INSERT 

M3268 LD (DE),A 
INC DE 
INC (IY+(MEM5-Y)) 
INC (IY+(MEM5-Y+1)) 
LD C,$00 


PF-TEST-2 

M3272 BIT 0,B 
JR Z,PF-ALL-9 
INC HL 


PF-ALL-9 

M3277 DJNZ PF-DIGITS 
LD А(МЕМ5) 
SUB $09 
JR C, PF-MORE 
DEC (IY+(MEM5-Y)) 
LD A,$04 
CP (IY+(MEM4-Y+3)) 
JR PF-ROUND 


PF-MORE 

M328A RST $28 
DEFB $02 
DEFB $E2 
DEFB $38 


The fractional part of x is now stored in 


PF-FRACTN 

M328E EX DE,HL 
CALL FETCH-TWO 
EXX 
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Clear A to receive digits. 

Source: first byte of mem4. 

Destination: first byte of mem3. 

At most 9 digits. 

Discard left nibble of mem4. 

$FF in C will signal leading 0, $00 is non- 
leading 0. 


Left nibble of (HL) to A, right nibble of 
(HL) to left. 

Jump if digit in A is not zero. 

Test for leading zero: 

it will now give zero reset. 

Jump if it was a leading zero. 


Insert the digit. 

Point to next destination. 

One more digit for printing, and one more 
before the decimal. 

Change flag from leading zero to other zero. 


Source pointer needs to be incremented 
every second time through the loop when 
B is odd. 


Jump back for all 9 digits. 

Get counter: were there 9 digits, excluding 
leading zeros? 

If not, jump to get more digits. 

Reduce count to 8. 

Compare 9th digit, byte 4 of mem4 with 4 
to set carry for rounding up. 


Call calculator. 
DROP 

MEM 2 -> T 
QUIT 


the print buffer. 
Point DE to f. 


Mantissa of f in D’,E’,D,E. 
Exchange the registers. 


LD A,$80 
SUBL 

LD L,$00 

SET 7,D 

EXX 

CALL SHIFT-FP 


PF-FRN-LP 


M329E 


LD A,(IY+(MEM5-Y)) 
CP $08 

JR C, PR-FR-DGT 
EXX 


RLD 

EXX 

JR PF-ROUND 
PF-FR-DGT 
M32AB LD BC,$0200 
PF-FR-EXX 
M32AE LDA,E 


The digits stored in the print buffer are 


CALL CA=10*A+C 
LD E,A 

LD A,D 

CALL CA=10*A+C 
LD D,A 

PUSH BC 

EXX 

POP BC 

DJNZ PF-FR-EXX 
LD HL,MEM3 

LD A,C 

LD C,(IY+(MEM5-Y)) 
ADD HL,BC 

LD (HL),A 

INC (IY+(MEM5-Y)) 
JR PF-FRN-LP 


PF-ROUND 
M32CB PUSH AF 


LD HL,MEM3 

LD C,(IY+(MEM5-Y)) 
LD B,$00 

ADD HL,BC 

LD B,C 

POP AF 
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Reduce exponent of f to zero 

by shifting the bits of f $80-e 
places right, where L' contained е. 
True numerical bit to bit 7 of D'. 
Restore main registers. 

Make the shift. 


Get the digit count. 

Are there already 8 digits? 

If not, jump forward. 

If 8 digits, use f to round i up, 
rotating D' left to set the carry. 
Restore main registers. 


Initialize C to zero, B to 2. 


D'E'DE is multiplied by 2 in stages, 
first DE, then D'E', each byte by byte 
in two steps and the integer part of the 
result is put in C to pass to print buffer. 


Count and result alternate between BC and B’C’. 


Look back once through the exchange registers. 
Get base address of number. 

Result to A temporarily. 

Count of digits so far in number to C. 

Get address of first empty byte. 

Store the next digit. 

Step up count of digits. 

Loop back until all 8 digits are processed. 


rounded to a maximum of 8 digits for printing. 


Save carry flag for rounding. 
Start with base address of number. 
Copy number of digits to BC. 


Get address of last byte in number. 


Copy C to B as counter. 
Restore carry flag. 
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PF-RND-LP 
M32D7 DEC HL 


LD A,(HL) 

ADC A,$00 

LD (HL),A 

AND A 

ЈК Z,PF-R-BACK 
CP $0A 

CCF 

JR NC, PF-COUNT 


PF-R-BACK 


M32E4 


DJNZ PF-RND-LP 

LD (HL),$01 

INC B 

INC (IY+(MEM5-Y+1)) 


PF-COUNT 
M32EC LD (IY+(MEMS5-Y)),B 


RST $28 
DEFB $02 
DEFB $38 


Move back to last byte of number. 

Put the byte in A. 

Add in the carry to round up. 

Put the byte back. 

If byte is 0 or 10, В will be decremented 
and the final zero will not be counted 
for printing. 

Reset carry for valid digit. 

Jump if carry reset. 


Jump back for more rounding or final zeros. 
There is an overflow to the left; an extra 1 

is needed here. 

It is also an extra digit before the decimal. 


B now sets count of the digits to be printed. 
Call calculator to delete f. 

DROP 

QUIT 

Calculator offset saved on the stack is 
restored to H'L'. 


The number can now be printed. C will be set to hold the number of digits to be printed, 
not counting final zeros. B will hold the number of digits required before the decimal. 


LD ВС(МЕМ5) 
LD HL,MEM3 

LD A,B 

CP $09 

JR C, PF-NOT-E 
CP $FC 

JR C, PF-E-FRMT 


PF-NOT-E 


M3305 


AND A 
CALL Z, OUT-CODE 


Set the counters. 

Start of the digits. 

If more than 9 or fewer than -4 digits are 
required before the decimal, then E-format 
will be needed. 

Fewer than 4 means more than 4 leading zeros 
after the decimal. 


Are there no digits before the decimal? 
If so, print an initial zero. 


The next entry point is also used to print the digits needed for E-format printing. 


PF-E-SBRN 
M3309 XORA 
SUB B 
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JP M, PF-OUT-LP 
LD B,A 
JR PF-DC-OUT 


Start by setting A to zero. 

Subtract B. Minus will mean there are digits 
before the decimal, jump forward to print them. 
A is now used as a counter. 


PF-OUT-LP 
M3311 LDA,C 
AND A 
JR Z, PF-OUT-DT 
LD A,(HL) 
INC HL 
DEC C 


PF-OUT-DT 
M3318 CALL OUT-CODE 
DJNZ PF-OUT-LP 


PF-DC-OUT 
M331D ШАС 


INC B 
LD A,$2E 


PF-DEC-0S 
M3323  RST $10 
LD A,$30 
DJNZ PF-DEC-0S 
LD B,C 
JR PF-OUT-LP 


PF-E-FRMT 
M332B LD D,B 

DEC D 

LD B,$01 

CALL PF-E-SBRN 

LD A,$45 

RST $10 

LD C,D 

LD A,C 

AND A 

JP P, PF-E-POS 

NEG 

LD C,A 

LD A,$2D 

JR PF-E-SIGN 


PF-E-POS 
M3342 LD A,$2B 


PF-E-SIGN 
M3344 RST $10 
LD B,$00 
JP OUT-NUM 
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Copy number of digits to be printed to A. If 
A is zero, there are still final zeros to print 

B is non-zero), so jump. 

Get a digit from print buffer. 

Point to next digit. 

Decrease county by one. 


Print the digit. 
Loop back until B is zero. 


Time to print the decimal unless C is 0. 
In that case, return. 


Add 1 to B: include the decimal. 
Code for period in A. 


Print the period. 

Character code for 0. 

Loop back to print all necessary zeros. 
Set count for all remaining digits. 
Jump back to print the digits. 


Count of digits is copied to D. 
Decrement to give the exponent. 
One digits is required before decimal. 
Print all parts of the number before E. 
Character code for E. 

Print the E. 

Exponent to C for printing. 

And to A for testing. 

Test the sign. 

Jump if positive. 

Otherwise, negate to A. 

Copy back to C for printing. 
Character code for minus. 

Jump to print the sign. 


Character code for plus. 


Print the sign. 
BC holds exponent for printing. 
Jump to print and finish. 
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CA=10* A+C Subroutine 


Multiplies each byte of D'E'DE by 10 and returns the integer part of the result in C. On 
entry, A contains the byte to be multiplied by 10 and C contains the carry over from the 
previous byte. On return, A contains the resulting byte and C the carry forward to the 


next byte. 


C=10*A+C 
M334A PUSH DE 


LD ЦА 

LD H,$00 
LD E,L 

LD D,H 
ADD HL,HL 
ADD HL,HL 
ADD HL,DE 
ADD HL,HL 
LD E,C 
ADD HL,DE 
LD C,H 

LD A,L 
POP DE 
RET 


Save the DE pair in use. 
Copy multiplicand from A to HL. 


Copy it to DE. 


Double HL. 

And again. 

Add DE to give HL=5*A. 
Again, so Ні-10%А. 

Copy C to DE for addition. 
HL-10*A«C. 

Copy H to C. 

Copy L to A. 

Restore DE. 


Prepare To Add Subroutine 


First of four subroutines that are used by the main arithmetic operation routines: 
SUBTRACTION, ADDITION, MULTIPLICATION and DIVISION. This subroutine prepares a 
floating-point number for addition by replacing the sign bit with a true numerical bit 1, 
and negating the number (two's complement) if it is negative. The exponent is returned 
in the A register and the first byte is set to $00 for a positive number and $FF for a 
negative number. 


PREP-ADD 
M335A LD A,(HL) 
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LD (HL),$00 
AND A 
RETZ 

INC HL 

BIT 7,(HL) 
SET 7,(HL) 
DEC HL 
RET Z 


PUSH BC 

LD BC,$0005 
ADD HL,BC 
LD B,C 

LD СА 

SCF 


Transfer the exponent to A. 

Presume a positive number. 

If the number is zero then the 
preparation is already finished. 

Point to the sign byte. 

Set the zero flag for positive number. 
Restore the true numeric bit. 

Point to the first byte again. 

Positive numbers have been prepared, 
but negative numbers need to be 
two's complemented. 

Save any earlier exponent. 

There are 5 bytes to be handled. 
Point one-past the last byte. 

Transfer the '5' to B. 

Save the exponent in C. 

Set carry flag for negation. 


NEG-BYTE 
M336E DEC HL 
LD A,(HL) 
CPL 
ADC A,$00 
LD (HL),A 
DJNZ NEG-BYTE 
LD A,C 
POP BC 
RET 
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Point to each byte in turn. 
Get each byte. 

One's complement the byte. 
Add in carry for negation. 
Restore the byte. 

Loop 5 times. 

Restore exponent to A. 
Restore any earlier exponent. 


Fetch Two Numbers Subroutine 


This routine is called by the addition, multiplication, and division routines to fetch two 
floating point numbers to the main and alternate register sets. When called from the 
multiplication and division routines, the sign of the result is stored in the second byte of 


the first number (M2). 


M1 - M5 are in H', B', C', C, B. 
N1 - N5 are in: L', D', E', D, E. 


HL points to the first byte of the first number. 


FETCH-TWO (SUMSLD) 

M3379 PUSH HL 
PUSH AF 
LD C,(HL) 
INC HL 
LD B,(HL) 
LD (HL),A 
INC HL 
LDA,C 
LD C,(HL) 
PUSH BC 
INC HL 
LD C,(HL) 
INC HL 
LD B,(HL) 
EX DE,HL 
LD D,A 
LD E,(HL) 
PUSH DE 
INC HL 
LD D,(HL) 
INC HL 
LD E,(HL) 
PUSH DE 
EXX 
POP DE 
POP HL 
POP BC 
EXX 


Save HL and AF 


М1 to C 

point to M2 

M2 to B 

save the sign of the result 
point to M3 

M1 to A 

M3 to C 

save M2 & M3 

point to M4 

M4 to C 

point to M5 

M5 to B 

HL now points to N1 
M1 to D 

N1 to E 

Save M1 & N1 

point to N2 

N2 to D 

point to N3 

N3 to E 

save N2 & N3 

to alternate register set 
D' = N2, E' = N3 
H'=M1,L'=N1 

В = М2, C' = МЗ 
back to normal reg set 
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INC HL 
LD D,(HL) 
INC HL 
LD E,(HL) 
POP AF 
POP HL 
RET 


Shift ADDEND Subroutine 


point to N4 

D=N4 

point to N5 

E=N5 

Restore AF 

Restore the pointer to the first number. 


This subroutine will shift a number up to 32 places to the right to properly align it for 
addition. Prior to this routine, the number with the small exponent has been put in the 
addend position. Any overflow to the right, into the carry, is ripped right back to the 
beginning of the number then the number is set to zero so that addition will not alter the 


other number (augend). 


SHIFT-FP (SHIFT) 
M339C ANDA 
RETZ 
CP $21 
JR NC, ADDED-0 
PUSH BC 
LD B,A 


ONE-SHIFT 
M33A4 EXX 
SRAL 
RRD 
RRE 
EXX 
RRD 
RRE 
DJNZ ONE-SHIFT 
POP BC 
RET NC 
CALL ADD-BACK 
RET NZ 


ADDEND-O 
M33B8  EXX 


XORA 


ZEROS-4/5 
M33BA LD L,$00 
LD D,A 
LD E,L 
EXX 
LD DE,$0000 
RET 
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If shift argument is zero, no 

shift is needed. 

If we shift more than 32 bits, 

jump forward. 

Save BC briefly. 

Transfer exponent difference to B to count shifts 
right. 


Arithmetic shift right for L', 
preserving the sign marker bits. 
Rotate right with carry D', E', D & E. 


Restore the BC. 

Done if no carry to retrieve. 

Retrieve carry. 

Return unless carry rippled right back. If so, zero 
the result. 


Fetch U, D' & E 
Clear A. 


Set addend to zero in D', E”, D & E, 
along with sign indicator L', which 
was $00 for positive and $FF for negative. 
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ADD-BACK Subroutine 


This subroutine adds back into the number any carry which has overflowed to the right. In 
the extreme case, the carry ripples right back to the left of the number. When this 
subroutine is called during addition, this ripple means that a mantissa of 0.5 was shifted a 
full 32 places right, and the addend will now be set to zero; when called from 
MULTIPLICATION, it means that the exponent must be incremented, and this may result 
in overflow. 


ADD-BACK 

M33C3 INCE Add carry to rightmost byte. 
RET NZ Return if no overflow to left. 
INC D Continued to the next byte. 
RET NZ Return if no overflow to left. 
EXX Get next byte. 
INCE Increment. 
JR NZ, ALL-ADDED Jump if no overflow. 
INC D Increment last byte. 

ALL-ADDED 

M33CC EXX Restore original registers. 
RET 


Subtraction Operation (SUB) 


Changes the sign of the subtrahend and carried on into ADDITION. HL points to the 
minuend and DE points to the subtrahend. (See ADDITION for more details.) 


SUBTRACT 

M33CE EX DE,HL Swap the number pointers. 
CALL NEGATE Negate the subtrahend. 
EX DE,HL Restore the number pointers. 


Addition Operation (ADD) 


Carries out floating-point addition of two numbers, each with a 4-byte mantissa and a 1- 
byte exponent. In The two numbers at the top of the calculator stack are added/ 
multiplied/divided to give one number at the top of the calculator stack, a ‘last value’. 


HL points to the second number from the top, the augend/multiplier/dividend. DE points 
to the number at the top of the calculator stack, the addend/multiplicand/divisor. 
Afterwards HL points to the resultant ‘last value' whose address can also be considered to 
be STKEND - 5. 


The addition subroutine first tests whether the 2 numbers to be added are 'small 
integers'. If they are, it adds them quite simply in HL and BC, and puts the result directly 
on the stack. No twos complementing is needed before or after the addition, since such 
numbers are held on the stack in twos complement form, ready for addition. 


ADDITION (FP. ADD) 


M33D3 LD A,(DE) If both numbers are not 
OR (HL) internal integer format, 
JR NZ, FULL-ADDN jump to full addition. 
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PUSH DE Save the second number pointer. 

INC HL Point to the sign byte of the 

PUSH HL first number and save it. 

INC HL Point to the least sig byte of M. 

LD E,(HL) Put it in E. 

INC HL point to most sig byte of M. 

LD D,(HL) Put it in D. 

INC HL Points to unused byte of M. 

INC HL Point to exponent byte of N. 

INC HL Point to sign of N. 

LD A,(HL) Save N sign. 

INC HL Point to N least sig byte. 

LD C,(HL) Put it in C. 

INC HL Point to N most sig byte. 

LD B,(HL) Put it in B. 

POPHL Point to sign of N1. 

EX DE,HL HL = N, DE points to N sign. 

ADD HL,BC HL=M+N. 

EX DE,HL DE = М + N, HL points to М1 sign. 

ADC A,(HL) If the signs were the same and if 

RRCA the result generated a carry, 

ADC A,$00 we have overflowed 32 bits so 

JR NZADDN-OFLW jump to handle overflow. At this point CF=1 if the 

result is negative, CF=0 if positive. 

SBC A,A Generate $FF for negative, $00 for positive. 
M33F1 LD (HL),A Store sign byte. 

INC HL Point to the next location. 

LD (HL),E Store least sig byte. 

INC HL Point to the next location. 

LD (HL),D Store most sig byte. 

DEC HL Move pointer back to address of 

DEC HL first byte of the result. 

DEC HL 

POP DE Restore STKEND to DE. 

RET 


The number -65536 decimal can arise here in the form 00 FF 00 00 00 as the result of the 
addition of two smaller negative integers, e.g. -65000 and -536. It is simply stacked in this 
form. This is a mistake: this math system cannot handle this number. Most functions treat 
it as zero, and it is printed as -1E-38, obtained by treating is as 'minus zero' in an 
illegitimate format. One possible remedy would be to test for this number at about byte 
33F1 and, if it is present, to make the second byte 80 hex and the first byte 91 hex, so 
producing the full five byte floating-point form of the number, i.e. 91 80 00 00 00, which 
causes no problems. 


ADDN-OFLW 
M33FB DEC HL Restore number pointers. 
POP DE 
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FULL-ADDN 
M33FD CALL RE-ST-TWO Re-stack both numbers in full five byte 


floating-point form. 


The full ADDITION subroutine calls PREP-ADD for each number, then gets the two 
numbers from the calculator stack and puts the one with the smaller exponent into the 
addend position. It then calls SHIFT-FP to shift the addend up to 32 decimal places right 
to line it up for addition. The actual addition is done in a few bytes, a single shift is made 
for carry (overflow to the left) if needed, the result is twos complemented if negative, and 


any arithmetic overflow is reported; otherwise the subroutine jumps to TEST-NORM to 
normalize the result and return it to the stack with the correct sign bit inserted into the 
second byte. 


EXX Exchange the registers. 
PUSH HL Save the next literal address. 
EXX Exchange the registers. 
PUSH DE Save addend pointer. 

PUSH HL Save augend pointer. 


CALL PREP-ADD 
LD BA 


Prepare the augend. 
Save its exponent. 


EX DE,HL Prepare the addend. 

CALL PREP-ADD Prepare the addend. 

LD C,A Save addend exponent. 

СРВ If the first exponent is smaller, 


JR NC,SHIFT-LEN 
LD A,B 


keep the first number in the added position; 
otherwise, swap the 


LD B,C numbers. 
EX DE,HL 
SHIFT-LEN 
M3414 PUSH AF Save the larger exponent. 
SUB B Get the difference in exponents. 


CALL FETCH-TWO 


CALL SHIFT-FP 


Get the numbers into the machine 
registers from the calc stack. 
Shift the addend right. 


POP AF Restore the larger exponent. 
POP HL HL points to the result. 

LD (HL),A Save the exponent of the result. 
PUSH HL Save the result address. 

LD L,B M4 to H and M5 to L. 

LD H,C 

ADD HL,DE Add the two right bytes. 

EXX 

EX DE,HL Add the two left bytes with 
ADC HL,BC carry. 

EX DE,HL 

LD A,H Add H'L' and the carry; the 
ADC А, result will ensure that a 

LD LA single shift right is called 

RRA if two positive numbers overflowed 
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XOR L 
EXX 

EX DE,HL 
POP HL 
RRA 


ЈК NC,TEST-NEG 
LD A,$01 

CALL SHIFT-FP 
INC (HL) 

ЈК Z,ADD-REP-6 


TEST-NEG 


M343B 


EXX 

LD A,L 
AND $80 
EXX 

INC HL 

LD (HL),A 
DEC HL 
JR Z,GO-NC-MLT 
LD A,E 
NEG 

CCF 

LD E,A 

LD A,D 
CPL 

ADC A,$00 
LD D,A 
EXX 

LD A,E 
CPL 

ADC A,$00 
LD E,A 

LD A,D 
CPL 

ADC A,$00 
JR NC,END-COMPL 
RRA 

EXX 

INC (HL) 


ADD-REP-6 


M345E 
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ЈР 2, REPORT-6 
ЕХХ 


or two negs have not overflowed left. 


The result is now in D'E'DE. 

Get the result pointer, 

then test for shift. (H'L' were 

$00 for positive numbers and $FF). 


Do a single right shift, 
perform the shift. 
Add one to the exponent. 


Test for negative result: put sign bit 
of L' in A. A correctly indicates sign 
of result. 


Store the sign in 2nd byte position of 
calculator stack. 

Point back to the exponent. 

If it is zero, then do not two's complement. 
Get first byte, 

negate it. 

Complement the carry for continued 
negation and store the byte. 

Get next byte. 

One's complement it. 

Add carry for negation. 

Store the byte. 

Put next byte 

in A. 

One's complement it. 

Add carry for negation. 

Store the byte. 

Get last byte. 

One's complement it. 

Add carry for negation. 

Done if no carry. 

Get .5 into the mantissa and 
increment the exponent. This 

will be necessary when two 

negative numbers add to a power of 2. 


Report overflow. 


END-COMPL 
M3462 LDD,A 
EXX 
GO-NC-MLT 
M3464 XORA 
JP TEST-NORM 
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Store the last byte. 


Clear the carry. 


HL=HL*DE Subroutine (MULT) 


Called by GET-HL*DE and by MULTIPLICATION to perform 16-bit multiplication. Any 
overflow of the 16 bits available is dealt with on return from the subroutine. 


HL=HL*DE 
M3468 PUSH BC Save the result sign byte. 
LD B,$10 16 bit multiplication. 
LD A,H High byte to A. 
LD C,L Low byte to C. 
LD HL,$0000 Zero result registers. 
HL-LOOP 
M3470 ADD HL,HL Double the result. 
JR C, HL-END Jump if overflow. 
RL C Rotate bit 7 into carry. 
RLA Rotate carry bit to bit О and bit 7 in to carry. 
JR NC, HL-AGAIN Jump if carry flag is reset. 
ADD HL,DE Otherwise, add DE once. 
JR C;HL-END Jump if overflow. 
HL-AGAIN 
M347B DJNZHL-LOOP Loop for 16 passes. 
HL-END 
M347D POP BC Restore BC. 
RET 


Prepare To Multiply Or Divide Subroutine 


Prepares a floating-point number for multiplication or division, returning with carry set if 
the number is zero, putting the sign of the result into the A register and replacing the 
sign bit in the number by the true numeric bit, 


PREP-M/D 
M347F САШ TEST-ZERO If number is zero, return with carry set. 
RET C 
INC HL Point to the sign byte. 
XOR (HL) Get sign for result in A. 
SET 7,(HL) Set true numeric bit. 
DEC HL Point to the exponent. 
RET 
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Multiplication Operation (TIMES) 


First tests whether the two numbers to be multiplied are small integers. If they are, it uses 


INT-FETCH to get them from the stack, HL=HL*DE to multiply them and INT-STORE to 
return the result to the stack. Any overflow of this short multiplication (i.e. if the result is 
not itself a small integer) causes a jump to multiplication in full five byte floating-point 


form. 


MULTIPLY (FP_TIMES) 


M3489 LD A,(DE) Test whether first bytes of both number 
OR (HL) are zero. 
JR NZ,MULT-LONG If not, jump for long multiplication. 
PUSH DE Save pointer to 2nd number. 
PUSH HL Save pointer to 1st number 
PUSH DE Working copy of 2nd number pointer. 
CALL INT-FETCH Fetch sign in C, number in DE. 
EX DE,HL Number to HL. 
EX (SP),HL Number to stack, second pointer to HL. 
LD B,C Save first sign in B. 
CALL INT-FETCH Fetch second sign in C, number in DE. 
LD A,B Get sign of result in A. Like signs produce $00, 
XOR C unlike $FF. 
LD CA Save the sign in C. 
POP HL Get 1st number. 
CALL HL-HL*DE Perform a 32 bit multiply. 
EX DE,HL transfer product to DE 
POP HL Restore pointer to 1st number. 
JR C,MULT-OFLW Jump if overflow to full mult. 
LD A,D Ensure that 00 FF 00 00 00 is replaced 
ORE by zero. 
JR NZ,MULT-RSLT 
LD С,А 

MULT-RSLT 


M34A9 CALL INT-STORE 


Store the result on the stack. 


POP DE Restore STKEND to DE. 

RET 
MULT-OFLW 
M34AE POP DE Restore point to 2nd number. 
MULT-LONG 


M34AF CALL RE-ST-TWO 


Restack both numbers in full five byte form. 


The full MULTIPLICATION subroutine prepares the first number for multiplication by 
calling PREP-M/D, returning if it is zero; otherwise the second number is prepared by 
again calling PREP-M/D, and if it is zero the subroutine goes to set the result to zero. 


Next it fetches the two numbers from the calculator stack and multiplies their mantissas in 
the usual way, rotating the first number (treated as the multiplier) right and adding in the 
second number (the multiplicand) to the result whenever the multiplier bit is set. The 
exponents are then added together and checks are made for overflow and for underflow 
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(giving the result zero). Finally, the result is normalized and returned to the calculator 
stack with the correct sign bit in the second byte. 


XOR A 

CALL PREP-M/D 
RET C 

EXX 

PUSH HL 

EXX 

PUSH DE 

EX DE,HL 

CALL PREP-M/D 
EX DE,HL 

JR C, ZERO-RSLT 
PUSH HL 

CALL FETCH-TWO 


LD A,B 

AND A 

SBC HL,HL 
EXX 

PUSH HL 
SBC HL,HL 
EXX 

LD B,$21 

JR STRT-MLT 


MLT-LOOP 
M34D3 JRNC, NO-ADD 


ADD HL,DE 
EXX 
ADC HL,DE 
EXX 


NO-ADD 
M34DA EXX 


RR H 
RRL 
EXX 
RR H 
RRL 


STRT-MLT 


M34E4 


EXX 
RRB 
RRC 
EXX 
RRC 
RRA 
DJNZ MLI-LOOP 


Set A to zero for sign of first number. 
Prepare the first number and return if 
zero. 

Exchange registers. 

Save next literal address 

Restore register. 

Save pointer to multiplicand. 
Exchange pointers. 

Prepare 2nd number for multiplication. 
Exchange pointers. 

Jump forward if 2nd number is zero. 
Save pointer to result. 

Get the numbers into the machine 
registers from the calc stack. 

M5 to A. 

Reset carry flag. 

Initialize accumulator. 


Save М1 апа М1 
Initialize H'L'. 


For 33 bits. 


Jump forward if multiplier bit (carry) was reset. 
Add multiplicand 

in D'E'DE to 

accumulator in H'L'HL. 


Whether multiplicand was added or not, shift 
result to right in H'L'HL so that any bit that 
drops into carry is picked up by the next 
byte and shift continued into B'C'CA. 


Shift right the multiplier in B'C'CA. 
A final bit dropping into the carry will 
trigger another add of the multiplicand 


as a result. 


Loop 33 times for all bits. 
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EX DE,HL 
EXX 
EX DE,HL 
EXX 


Add the exponents together. 


POP BC 

POP HL 

LD A,B 

ADD A,C 

JR NZ,MAKE-EXPT 
AND A 


MAKE-EXPT 
M34FA DECA 
CCF 


Move H'L'HL to БЕРЕ. 


Restore the exponents. 
Restore the pointer to the result. 
Add the exponents. 


If sum >0 then clear carry, 
else leave unchanged. 


Prepare to increase exponent 
by $80. 


The rest of the subroutine is common to both MULTIPLICATION and DIVISION. 


DIVN-EXPT 

M34FC МА 
CCF 
RRA 


JP P, OFLW1-CLR 


JR NC, REPORT-6 
AND A 


OFLW1-CLR 


M3505 


INCA 

JR NZ, OFLW2-CLR 
JR C, OFLW2-CLR 
EXX 

BIT 7,D 

EXX 

JR NZ, REPORT-6 


OFLW2-CLR 
M3510 LD (HL),A 
EXX 
LD A,B 
EXX 


These few bytes very cleverly 

make the correct exponent byte. 

Rotating left then right gets the exponent 
byte into A. 

If the sign flag is reset, no report of 
arithmetic overflow is required. 

Report overflow if carry reset. 

Clear carry. 


The exponent is complete but if A is zero a 
a further check for overflow is required. 


If there is no carry set and the 

result is already in normal form 

(bit 7 of D' set) then there is overflow 

to report. But if bit 7 of D' is reset, 

the result is just in range, i.e. just under 2^127. 


Store the exponent. 

Pass the fifth result byte to A for 
the normalization sequence, i.e. 
the overflow from L to B'. 


The remainder of the subroutine deals with normalization and is common to all the 
arithmetic routines. 


248 


TEST-NORM (TESTNORML) 
M3514 JR NC,NORMALISE 
LD A,(HL) 
AND A 


NEAR-ZERO 
M3518 LD A,$80 
JR Z, SKIP-ZERO 


ZERO-RSLT 
M351C ХОКА 


SKIP-ZERO 
M351D EXX 


AND D 

CALL ZEROS-4/5 
RLCA 

LD (HL),A 

JR C,OFLOW-CLR 
INC HL 

LD (HL),A 

DEC HL 

JR M3554 


The actual normalization operation. 


NORMALISE (NORML) 
M352B LD B,$20 


SHIFT-ONE 
M352D EXX 


BIT 7,D 

EXX 

JR NZ, NORML-NOW 
RLCA 

RLE 

RLD 

EXX 

RLE 

RLD 

EXX 

DEC (HL) 

JR Z, NEAR-ZERO 


DJNZ SHIFT-ONE 
JR ZERO-RSLT 
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If no carry then normalize now. 
Otherwise, deal with underflow (zero) 
or near underflow 


(result 24-128). 


Test if A is zero (case 2^-128) and if so 


produce 2^-128 if number is normal; 
otherwise rocude zero. 

the exponent must then be set to 
zero (for zero) or 1 (for 2^-128). 
Restore the exponent byte 

Jump if case 2^-128, 

otherwise, put zero into second 

byte of result on calculator 

stack. 


Normalize the result by up to 32 


decimal shifts left of 

D'E'DE (with A adjoined), until bit 

7 of D' is set. A hold zero after 

addition so no precision is 

gained or lost. A hold the fifth 

byte from B' after multiplication or 

division; but as only about 32 

bits can be correct, no precision 

lost. Note that A is rotated 

circularly with branch at carry ... 

...eventually a random process 

The exponent is decremented on each shift 

If the exponent becomes zero, then numbers from 
2^-129 are rounded up to 2^-128. 

Loop back, up to 32 times. 

If bit 7 never became 1 then the whole result is 
zero. 


Finish the normalization by considering the carry. 
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NORML-NOW 

M3545 RLA 
JR NC, OFLW-CLR 
CALL ADD-BACK 
JR NZ,OFLW-CLR 
EXX 
LD D,$80 
EXX 
INC (HL) 
JR Z, REPORT-6 


The final part of the subroutine involves passing the result to the bytes reserved for it on 


After normalization, add back any 
final carry that went into A. 

Jump forward if the carry does not 
ripple right back. 

If it should ripple back, then 


set the mantissa to 0.5 and increment 


the exponent. 
This may lead to arithmetic 
overflow. 


the calculator stack and resetting the pointers. 


OFLOW-CLR 
M3554 PUSH HL 
INC HL 
EXX 
PUSH DE 
EXX 
POP BC 
LD A,B 
RLA 
RL (HL) 
RRA 
LD (HL),A 
INC HL 
LD (HL),C 
INC HL 
LD (HL),D 
INC HL 
LD (HL),E 
POP HL 
POP DE 
EXX 
POP HL 
EXX 
RET 


REPORT-6 (ERR6) 


M356C RST $08 
DEFB $05 
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Save the result pointer. 

Point to the sign byte of the result. 
The result is moved from 

D'E'DE to BCDE 

then to ACDE. 


Retrieve the sign bit 
and put into bit 7 of the 
mantissa. 


Store the first byte. 

Next. 

Store the second byte. 

Next. 

Store the third byte. 

Next. 

Store the fourth byte. 

Restore the result pointer. 

Restore the pointer to 2nd number. 


Restore the next literal address. 


error: Number too big. 
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Division Operation 


Prepared the divisor by calling PREP-M/D, reporting arithmetic overflow if it is zero; then 
it prepares the dividend again calling PREP-M/D, returning if it is zero. Fetches the two 
numbers from the calculator stack and divides their mantissa by means of the usual 
restoring division, trial subtracting the divisor from the dividend and restoring if there is 
carry, otherwise adding 1 to the quotient. The maximum precision is obtained for a 4- 
byte division, and after subtracting the exponents the subroutine exits by joining the later 
part of MULTIPLICATION. 


DIVISION (FP_DIVIDE) 
M356E CALL RE-ST-TWO 


EX DE,HL 

XOR A 

CALL PREP-M/D 
JR C, REPORT-6 
EX DEHL 

CALL PREP-M/D 
RETC 

EXX 

PUSH HL 

EXX 

PUSH DE 

PUSH HL 

CALL FETCH-TWO 
EXX 

PUSH HL 

LD H,B 

LD L,C 

EXX 

LD H,C 

LD L,B 

XOR A 

LD B,$DF 

JR DIV-START 


Now enter the division loop. 


DIV-LOOP 


M3591 


RLA 
RL C 
EXX 
RL C 
RL B 


EXX 


Convert operand to FP form. 

Exchange N and M pointers. 

Clear the exponent register 

Prepare the divisor and give the 

report for arithmetic overflow if it is zero. 
Restore the pointers. 

Prepare the dividend 

Return if O, already done, 


Save next literal pointer. 

Save number pointers. 

Fetch the numbers to the machine registers. 
Save M1 and М1 on the stack. 

Copy the dividend from 

B'C'CB to H'L'HL. 


Clear the carry. 
Count from -33 to -1. 


Shift the result left into B'C'CA, 
shifting out the bits already 
there, picking up 1 from the 
carry whenever it is set, and 
rotating left each byte with 


carry to achieve the 32 bit shift. 
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DIV-34TH 
M359A ADD HL,HL Move what remains of the dividend left in H'L'HL 
EXX before the next trial subtraction; if a 
ADC HL,HL bit drops into the carry, force no restore and a bit 
EXX for the quotient, thus retrieving the lost 
JR C,SUBN-ONLY bit and allowing a full 32-bit divisor. 
DIV-START 
M35A1 SBC HL,DE Trial subtract divisor in D'E'DE 
EXX from rest of dividend in H'L'HL; 
SBC HL,DE there is no initial carry . 
EXX 
JR NC, NO-RSTORE Jump forward if there is no carry. 
ADD HL,DE Otherwise restore, i.e. add back 
EXX the divisor. Then clear the carry 
ADC HL,DE so that there will be no bit for 
EXX the quotient. 
AND A 
JR COUNT-ONE Jump forward to the counter. 
SUBN-ONLY 
M35B1 ANDA Just subtract with no restore 
SBC HL,DE and go on to set the carry flag 
EXX because the lost bit of the dividend 
SBC HL,DE is to be retrieved and used for the 
EXX quotient. 
NO-RSTORE 
M35B8 SCF Force a bit into the quotient. 
COUNT-ONE 
M35B9 INCB Step the loop count. 
JP M,DIV-LOOP Loop 32 times. 
PUSH AF Save any 33rd bit. 
JR Z,DIV-34TH Trial subtract yet again for any 34th bit; 
PUSH AF above saves this bit, too. 
LD E,A Now move the four bytes that 
LD D,C form the mantissa bytes of the 
EXX result from B'C'CA to D'E'DE. 
LD E,C 
LD D,B 
POP AF Then put the 34th and 33rd bits 
RRB into 'B' to be picked up on 
POP AF normalization. 
RRB 
EXX 
POP BC Restore the exponent bytes, M1 & N1. 
POP HL Restore result pointer/ 
LD A,B Compute exponent difference. 
SUBC 
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Exit via the exponent routine 
in the multiplication routine. 


Integer Truncation Towards Zero Subroutine 


Returns the result of integer truncation of x, the last value, towards zero. If I(x) is a ‘short 
integer’ the subroutine returns it in that form. It returns х if the exponent byte is AO hex or 
greater (x has no significant non-integral part). Otherwise the correct number of bytes of x 
are set to zero and, if needed, one more byte is split with a mask. 


TRUNCATE (FP_TRUNC) 


M35D3 


LD A,(HL) 
AND A 
RET Z 
CP $81 


JR NC, T-GR-ZERO 


LD (HL),$00 
LD A,$20 
JR NIL-BYTES 


T-GR-ZERO 


M35E0 


CP $91 
JR NZ,T-SMALL 


Put the exponent byte into A. 

If A is zero, return since x is already a 
small integer. 

Compare exponent to $81. 

Jump if e is greater than $80. 
Number is «1, so prepare 

to zero out all 32 bits 


If the number is not $91, 
jump ahead. 


The next 26 bytes seem designed to test whether x is in fact -65536 decimal (91 80 00 00 
00), and if it is, to set it to 00 FF 00 00 OO. This is a mistake. As already stated at byte 

33F1 above, the system cannot handle this number. The result here is simply to make INT 
(65536) return the value -1. 


M35E4 


T-FIRST 
M35F2 


INC HL 
INC HL 
INC HL 
LD A,$80 
AND (HL) 
DEC HL 
OR (HL) 
DEC HL 
JR NZ, T-FIRST 
LD A,$80 
XOR (HL) 


DEC HL 

JR NZ,T-EXPNENT 
LD (HL),A 

INC HL 

LD (HL), ФРЕЕ 

DEC HL 

LD A,$18 

JR NIL-BYTES 


Point HL to the 4th byte of x, where the 
17 bits of the integer part end. 


Bit mask into A. 
Test the bits for zero. 


Point to 2nd byte. 
If already non-zero, end the test. 
Otherwise test for -65536 is complete. 


Point to the 1st byte. 


Put zero in 1st byte. 
Point to 2nd byte. 

Set to $FF. 

Point back to1st byte. 
Set last 24 bits to zero. 
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T-SMALL 


M35FE 


JR NC,X-LARGE 
PUSH DE 

CPL 

ADD A,$91 

INC HL 

LD D,(HL) 

INC HL 

LD E,(HL) 

DEC HL 

DEC HL 

LD C,$00 

ВІТ 7,D 

JR 2, TNUMERIC 
DECC 


T-NUMERIC 
M3611 SET 7,D 
LD B,$08 
SUB B 
ADD A,B 
JR C, T-TEST 
LD E,D 
LD D,$00 
SUB B 
T-TEST 
M361D JRZ, T-STORE 
LD B,A 
T-SHIFT 
M3620 SRLD 
RR E 
DJNZ T-SHIFT 
T-STORE 
M3626 CALL INT-STORE 
POP DE 
RET 


Jump with exponent byte 92 or more. 
Save STKEND in DE. 

Effectively subtracts 

A-1 from $91, range becomes 0 - $15. 
Point to 2nd byte. 

Store in D. 

Point to 3rd byte. 

Store in E. 

Point back to 1st byte. 


Assume positive number. 
Test for negative. 

Jump if positive. 

Make negative to positive. 


Insert true numeric bit in D. 
Test whether A >= 8. 

If >8, two bytes are needed. 
Leave A unchanged. 

Jump if two bytes needed. 
Put the one byte in E. 

And set D to zero. 

Count the shifts needed. 


Jump if no shifts needed. 
Set up the shift counter. 


Shift DE right B times to produce the 
correct number. 
Loop until B is zero. 


Store the result on the stack. 
Restore STKEND to DE. 


Large values of x remains to be considered. 


T EXPNENT 


M362B 
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LD A,(HL) 


Get the exponent of x in A. 


X-LARGE 

M362C SUB $A0 
RETP 
NEG 
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Subtract $A0 from e. 

Return if positive. 

Negate remainder to get number of bits to 
become zero. 


Now the bits of the mantissa can be cleared. 


NIL-BYTES 
M3631 PUSH DE 
EX DE,HL 
DEC HL 
LD B,A 
SRL B 
SRL B 
SRL B 
JR Z, BITS-ZERO 


BYTE-ZERO 
M363D LD (HL),$00 
DEC HL 
DJNZ BYTE-ZERO 


BITS-ZERO 

M3642 AND $07 
JR Z, IX-END 
LD B,A 
LD A,$FF 


LESS-MASK 

M3649 SLAA 
DJNZ LESS-MASK 
AND (HL) 
LD (HL),A 


IX-END 

M364F EX DE,HL 
POP DE 
RET 


Re-Stack Two Subroutine 


Save STKEND. 

Make HL point one past the 5th byte. 
Point to the 5th byte of X. 

Get the number of bits to be set. 
Divide by 8 to determine 

the number of whole bytes 

to change. 

Jump forward if result is 0. 


Set the bytes to zero. 
Reset the whole bytes 


Determine the number of bits, 
Jump to end if nothing more do do. 
Initialize the bit counter. 

Set up the mask. 


Shift O's into the mask. 


Zero the unwanted bits 
and store. 


Restore HL. 
Restore STKEND. 


Re-stacks two small integers in full five byte floating-point form for the binary operations 


of addition, multiplication and division. 


RE-ST-TWO 
M3652 CALL RSTK-SUB 


RESTK-SUB 
M3655 EX DE,HL 


Call subroutine then continue for 2nd call. 


Exchange pointers at each call. 
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Re-Stack Subroutine 


Re-stack one number in full five byte floating-point form. 


RE-STACK (FLOAT) 

M3656 LD A,(HL) 
AND A 
RET NZ 
PUSH DE 


CALL INT-FETCH 


XOR A 
INC HL 
LD (HL),A 
DEC HL 
LD (HL),A 
LD B,$91 
LD A,D 
AND A 


JR NZ, RS-NRMLSE 


ORE 
LD B,D 


JR Z, RS-STORE 


LD D,E 
LD E,B 
LD B,$89 


RS-NRMLSE 
M3670 EX DE,HL 


RSTK-LOOP 
M3671 DECB 
ADD HL,HL 


JR NC, RSTK-LOOP 


RRC C 
RR H 
RRL 

EX DE,HL 


RS-STORE 

M367C DEC HL 
LD (HL),E 
DEC HL 
LD (HL),D 
DEC HL 
LD (HL),B 
POP DE 
RET 
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If the first byte is not zero, 
return. Is not a small integer. 


Save the pointer to number N. 
Get sign in C and number in DE. 
Zero Z. 

Point to M5. 

Zero it out. 

Point to M4. 

Zero it. 

Set exponent for 16 bit number. 
Test whether D is zero. 

If so, only 8 bits are needed. 


Jump if more than 8 bits necessary. 


Test E. 

Save zero to B. 

Jump if E is zero. 

Move E to D. 

Zero E. 

Exponent for 8 bit number. 


HL now has number, DE has pointer. 


For every left shift, 

decrement the exponent once. 
Loop until carry is set. 

Sign bit to carry flag. 

Insert it in place as the number 
is shifted back one place. 
Pointer to byte 4 back to HL. 


Pointer to 3rd location. 

Store the 3rd byte. 

Point to 2nd location. 

Store the second byte. 

Point to 1st location. 

Store the exponent byte. 
Restore the other pointer to DE. 
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Floating-Point Calculator 


The calculator handles operations on numbers and strings. Its operations аге 
specified by literals: commands unique to the calculator. 


The calculator also contains routines for all mathematical functions. The 
approximations to SIN X, EXP X, LN X & ATN X are obtained by developing 
Chebyshev polynomials. 


Table Of Constants 


This table holds five useful and frequently needed numbers. The numbers are stored 
condensed form which is expanded by the STACK LITERALS subroutine to give the 
required floating-point form. 


FPCONST 

M3684  stk-zero DEFB $00,$B0,$00 zero 
stk-one DEFB $40,$B0,$00,$01 one 
stk-half DEFB $30,$00 one half 
stk-pi/2 DEFB $F1,$49,$0F,$DA, $A2 РІ/2 
stk-ten DEFB $40,$B0,$00,$0A ten 


Table Of Addresses 


This table is a look-up table of the addresses of the sixty-six operational subroutines of 
the calculator. The offsets used to index into the table are derived either from the 
operation codes used in SCANNING or from the literals that follow a RST 0028 
instruction. 


FPJMPTBL 

M3696 DEFW $3AAA .jrnz Jump if true 
DEFW $37ЕВ .swap Swap/exchange 
DEFW 53760 .drop Drop (delete) 
DEFW $33CE .- Subtract 
DEFW $3489 .* Times 
DEFW $356E / Divide 
DEFW $3C6C .^ To The 
DEFW $3936 .or OR 
DEFW $393F .and AND 
DEFW $3956 .«- Less than/equal 
DEFW $3956 .>= Greater than/equal 
DEFW $3956 .«» Not equal 
DEFW $3956 .> Greater than 
DEFW $3956 .« Less than 
DEFW $3956 .= Equal 
DEFW $33D3 .add Add 
DEFW $3948 .and$ String and 
DEFW $3956 .«-$ String less than/equal 
DEFW $3956 .>=$ String greater than/equal 
DEFW $3956 .<>$ String not equal 
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DEFW $3956 . 
DEFW $3956 . 
DEFW $3956 . 
DEFW $39B7 . 
DEFW $39F9 . 
DEFW $38D7 . 
.read-in 
.neg 
.code 
.val 

dlen 

.sin 
.COS 
DEFW $3BF5 . 
DEFW $3C4E . 
DEFW $3C5E . 
DEFW $3BFD . 
DEFW $3B2E . 
DEFW $3ADF . 
DEFW $3ACA .i 
DEFW $3C65 . 
DEFW $3851 . 
DEFW $3829 . 
DEFW $386B . 
DEFW $3864 .i 
DEFW $3872 . 
DEFW $3A3A . 
DEFW $39E4 . 
DEFW $391C . 
DEFW $377F . 
DEFW $3ABB . 
DEFW $3AA1 |j 
DEFW $3785 . 
DEFW $3A95 . 
DEFW $3921 . 
DEFW $3914 . 
DEFW $3AB6 . 
DEFW $3B9E . 
DEFW $35D3 . 
DEFW $3761 . 
DEFW $310D . 
DEFW $3656 . 
DEFW $3808 . 
DEFW $37DA . 
DEFW $37EC . 
DEFW $37CE . 


DEFW $3A60 
DEFW $382D 
DEFW $3A84 
DEFW $39F9 
DEFW $3A8F 
DEFW $3BDO 
DEFW $3BC5 


String greater than 
String less than 
String equal 
Concatenate 
VAL$ 

USR$ 

Read in string 
Negate 

CODE 

VAL 

LEN 

SIN 

COS 

TAN 

ASN 

ACS 

ATN 

LN 

EXP 

INT 

ROOT 

SGN 

ABS 

PEEK 

IN 

USR 

STR$ 

CHR$ 

NOT 

Duplicate (Move FP) 
INTDIV (М mod М) 
Jump 

LITERAL (STK DATA) 
LOOP 

LESS-0 
GREATER-O 
QUIT 

ANGLE 
TRUNC 
XEQTB 

XEY 

CBSV 
SERIES-06 
STK-ZERO 
5Т-МЕМ-0 
СЕТ-МЕМ-0 


The last four subroutines are multi-purpose subroutines and are entered with a parameter 
that is a copy of the right hand five bits of the original literal. The full set follows: 
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Offset Series 


3E series-06, series-08, & series-OC; literals 86,88 & 8С. 
3F stk-zero, stk-one, stk-half, stk-pi/2 & stk-ten; literals AO to A4. 
40 5і-тет-0, st-mem-1, st-mem-2, st-mem-3, st-mem-4 & st-mem-5; 
literals CO to C5. 
41 деї-тет-0, get-mem-1, get-mem-2, get-mem-3, get-mem-4 & get-mem-5; 


literals EO to E5. 


Calculate Subroutine 


Perform floating-point calculations. These can be considered to be of three types: 

1. Binary operations, e.g. addition, where two numbers in floating-point form are added 
together to give one ‘last value’. 

2. Unary operations, e.g. sin, where the ‘last value’ is changed to give the appropriate 
function result as a new ‘last value’. 

3. Manipulatory operations, e.g. st-mem-0, where the ‘last value' is copied to the first 
five bytes of the calculator's memory area 


The operations to be performed are specified as a series of data-bytes, the literals, that 
follow an RST 0028 instruction that calls this subroutine. The last literal in the list is always 
38 which leads to an end to the whole operation. 


In the case of a single operation needing to be performed, the operation offset can be 
passed to the CALCULATOR in the B register, and operation 3B, the SINGLE 
CALCULATION operation, performed. 


It is also possible to call this subroutine recursively (from within itself), and in such a case it 
is possible to use the system variable BREG as a counter that controls how many 
operations are performed before returning. 


The first part of this subroutine performs the two tasks of setting the registers to hold 
their required values, and to produce an offset, and possibly a parameter, from the literal 
that is currently being considered. 


The offset is used to index into the calculator's table of addresses, see above, to find the 
required subroutine address. The parameter is used when the multi-purpose subroutines 
are called. 


Note: A floating-point number may in reality be a set of string parameters. 


CALCULATE 

M371A CALL STK-PNTRS Assume a unary operation and set HL to point to 
the start of the last value on the calculator stack 
and DE to one past this floating point number 
(STKEND). 

GEN-ENT-1 

M371D LDA,B Either transfer a single operation offset 

LD (BREG),A to BREG temporarily or, when using the 


subroutine recursively, pass the parameter to 
BREG to use as a counter. 
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GEN-ENT-2 


M3721 


EXX 
EX (SP),HL 
EXX 


RE-ENTRY 


M3724 


LD (STKEND),DE 


EXX 
LD A,(HL) 
INC HL 


SCAN-ENT 


M372B 


PUSH HL 
AND A 
JP P, FIRST-3D 


LD D,A 
AND $60 
RRCA 
RRCA 
RRCA 
RRCA 

ADD A,$7C 
LD ЦА 

LD A,D 
AND $1F 
JR ENT-TABLE 


FIRST-3D 


M373F 


CP $18 

JR NC, DOUBLE-A 
EXX 

LD BC,$FFFB 

LD D,H 

LD E,L 

ADD HL,BC 

EXX 


DOUBLE-A 


M374B 


RLCA 
LD ЦА 


ENT-TABLE 
M374D LD DE,$3696 
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LD H,$00 
ADD HL,DE 
LD E,(HL) 
INC HL 


Return address of the subroutine is stored 
in H'L. Save the pointer to the first literal. 


Enter the calculator at this point when BREG is 


used as a counter and not to be disturbed. 


Enter loop to handle each literal that follows the 


calling instruction. Always set STKEND. 
Go to alternate register set and 

set the literal for this loop. 

Make H'L' point to the next literal. 


Save the literal to the machine stack. 
Test the A register. 


Separate the simple literals from multi-purpose 


literals. Jump with literals $00-$3D. 

Save the literal in D. 

Continue with only bits 5 & 6. 

Four shift rights to make them bits 1 & 2. 


Offsets required are $3E-$41. 
L will hold double the required offset. 
Produce parameter in A. 


Jump forward to find address of subroutine. 


Jump forward if performing unary operation. 


All of the subroutines that perform binary 
operations require that HL point to the first 
operand and DE to the second, as they 
appear on the calculator stack. 


Each entry in the table of address takes 
two bytes: double the offset. 


Base address of the table. 

Address of the required table entry 
will be put in HL and the subroutine 
address loaded in to DE. 
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LD D,(HL) 

LD HL,$3724 Re-entry address is put on machine stack 
EX (SP),HL beneath the subroutine address. 

PUSH DE 

EXX Return main set of registers. 

LD BC,(STKEND+1) Current value of BREG transferred to B, 


giving the single operation offset. 


Delete Subroutine 


Contains only the single RET instruction. The literal '02' results in this subroutine being 
considered as a binary operation that is to be entered with a first number addressed by 
the HL register pair and a second number addressed by the DE register pair, and the 
result produced again addressed by the HL register pair. The single RET instruction leads 
to the first number being considered as the resulting ‘last value’ and the second number 
considered as being deleted. 


DELETE (FP DROP) 
M3760 RET 


Single Operation Subroutine 


Called from SCANNING. Used to perform a single arithmetic operation. The effect of 
calling this subroutine is essentially to make a jump to the appropriate subroutine for the 
single operation. 


FP-CALC-2 (FP XEOTB) 


M3761 POP AF Discard re-entry address. 
LD A,(BREG) Transfer offset to A. 
EXX Enable alternate register set. 
JR SCAN-ENT Jump back to find the required address, 
stack the re-entry address and jump to 
subroutine. 


Test 5-Spaces Subroutine (ROOMQ) 


Tests whether there is sufficient room in memory for another 5-byte floating-point number 
to be added to the calculator stack. 


TEST-5-SP 

M3768 PUSH DE Save registers. 
PUSH HL 
LD BC,$0005 One floating point number size. 
CALL TEST-ROOM Check for room. 


If we returned, there was room. 


POP HL Restore the registers. 
POP DE 
RET 
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Stack Number Subroutine 


Called by BEEP and SCANNING twice to copy STKEND to DE, move a floating-point 
number to the calculator stack, and reset STKEND from DE. 


STACK-NUM (STK_M) 


M3773 LD DE,(STKEND) Copy STKEND to DE as destination address. 
CALL MOVE-FP Move the number. 
LD (STKEND),DE Reset STKEND from DE. 
RET 


Move A Floating-Point Number Subroutine 


Moves a floating-point number to the top of the calculator stack or from the top of the 
stack to the calculator's memory area. It is also called through the calculator when it 
simply duplicates the number at the top of the calculator stack, the last value, thereby 
extending the stack by five bytes. 


MOVE-FP (FP_DUP) 


M377F САШ TEST-5-SP Find out if there is room. 
LDIR Move the 5 bytes. 
RET 


Stack Literals Subroutine 


Places on the calculator stack, as a last value, the floating-point number supplied to it as 
2,3,4 or 5 literals. When called by using offset 34 the literals follow the 34 in the list of 
literals; when called by the SERIES GENERATOR, see below, the literals are supplied by 
the sub-routine that called for a series to be generated; and when called by SKIP 
CONSTANTS & STACK A CONSTANT the literals are obtained from the calculator's table 
of constants. 


In each case, the first literal supplied is divided by $40, and the integer quotient plus 1 
determines whether 1, 2, 3 or 4 further literals will be taken from the source to form the 
mantissa of the number. Any unfilled bytes of the five bytes that go to form a 5-byte 
floating-point number are set to zero. The first literal is also used to determine the 
exponent, after reducing mod $40, unless the remainder is zero, in which case the second 
literal is used, as it stands, without reducing mod $40. In either case, $50 is added to the 
literal, giving the augmented exponent byte, e (the true exponent e' plus $80). The rest 
of the 5 bytes are stacked, including any zeros needed, and the subroutine returns. 


STK-DATA (FP. LIT) 


M3785 LDH,D Set HL to point one past the present 
LD ЦЕ last value. 
STK-CONST 
M3787 CALL TEST-5-SP Determine if there is room. 
EXX Go to alternate register set and 
PUSH HL stack the pointer to next literal. 
EXX Switch over to result point and 
EX (SP),HL the next literal pointer. 
PUSH BC Save BC. 
LD A,(HL) Put first literal into A 
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AND $CO and divide by $40 to give integer 

RLCA values of 0, 1, 2 or 3. 

RLCA 

LD CA Transfer to C and increment, giving 

INC C range of 1, 3, 4 or 4 for number of 
literals needed. 

LD A,(HL) Assign literal again. 

AND $3F Reduce by mod $40 and 


JR NZ,FORM-EXP 
INC HL 
LD A,(HL) 


FORM-EXP 
M379D ADD A,$50 


JR STK-ZEROES 


discarded as inappropriate if remainder 
is zero. If so, fetch the next literal 
and use undivided. 


Exponent (e) is formed by addition 


LD (DE),A of $50 and passed to calc stack. 
LD A,$05 Number of literals specified in C 
SUB C are taken from source and entered 
INC HL into the bytes of the result. 
INC DE 
LD B,$00 
LDIR 
POP BC Restore BC. 
EX (SP),HL Return result pointer to HL 
EXX and the next literal pointer to 
POP HL its usual position in H'L'. 
EXX 
LD B,A Number of zero bytes at this stage is defined 
XORA by 5-C-1. 
STK-ZEROS 
M37BO DECB Add this number of zeroes to make 
RETZ up the required 5 bytes. 
LD (DE), A 
INC DE 


Skip Constants Subroutine 


Entered with HL holding the base address of the calculator's table of constants and A 
holding a parameter that shows which of the five constants is being requested. Performs 
the null operations of loading the five bytes of each unwanted constant into the locations 
0000, 0001, 0002, 0003 and 0004 at the beginning of the ROM until the requested 
constant is reached. The subroutine returns with the HL register pair holding the base 
address of the requested constant within the table of constants. 


SKIP-CONS 
M37B6 ANDA 


Returns if the parameter is zero 


SKIP-NEXT 
M37B7 RETZ or when the constant has been reached. 
PUSH AF Save parameter. 


263 


HOME ROM 


PUSH DE Save result pointer. 

LD DE,$0000 Dummy address. 

CALL STK-CONST Perform fake stacking of an expanded const. 
POP DE Restore pointer. 

POP AF Restore parameter. 

DECA Count the loops. 

JR SKIP-NEXT 


Memory Location Subroutine 


Finds the base address for each five byte portion of the calculator's memory area to or 
from which a floating-point number is to be moved from or to the calculator stack. 


Note that when a FOR-NEXT variable is being handled then the pointers are changed so 
that the variable is treated as if it were the calculator's memory area. 


LOC-MEM (ARRAY) 


M37C5 LDCA Copy parameter to С. 
RLCA Double parameter. 
RLCA Double result. 
ADD A,C Add to original value to get 5x. 
LD CA Move to BC 
LD B,$00 
ADD HL,BC And produce the new base address. 
RET 


Get From Memory Area Subroutine 


Called using the literals EO to E5; parameter derived from these literals is held A. Calls 
MEMORY LOCATION to put the required source address into the HL register pair and 
MOVE A FLOATING-POINT NUMBER to copy the five bytes involved from the 
calculator's memory area to the top of the calculator stack to form a new last value. 


СЕТ-МЕМ-0-5 
M37CE PUSH DE Save result pointer. 
LD HL,(MEM) Fetch pointer to current memory area. 
CALL LOC-MEM Find the base address. 
CALL MOVE-FP Move the five bytes. 
POP HL Set result pointer. 
RET 
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Stack A Constant Subroutine 


Uses SKIP CONSTANTS to find the base address of the requested constants from the 
calculator's table of constants and then calls STACK LITERALS, entering at STK-CONST, 
to make the expanded form of the constant the last value on the calculator stack. 


STK-ZERO (FP_TO_MEM) 


M37DA LDH,D Set HL to hold result pointer. 
LD ЦЕ 
EXX Go to alternate register set. 
PUSH HL Save next literal pointer. 
LD HL,$3684 Base address of calculator's table of consts. 
EXX Back to main set of registers. 
CALL SKIP-CONS Find the required const. 
CALL STK-CONST Expand the constant. 
EXX 
POP HL Restore next literal pointer. 
EXX 
RET 


Store In Memory Area Subroutine 


Called using the literals CO to C5; parameter derived from these literals is held A. This 
subroutine is very similar to the GET FROM MEMORY subroutine but the source and 
destination pointers are exchanged. 


ST-MEM-0-5 (FP FROM MEM) 


M37EC PUSH HL Save the result pointer. 
EX DE,HL Source to DE. 
LD HL,(MEM) Get point to current memory area. 
CALL LOC-MEM Find the base address. 
EX DE,HL Exchange source and destination pointers. 
CALL MOVE-FP Move the five bytes. 
EX DE,HL Last value +5 (STKEND) to DE. 
POP HL Result pointer to HL. 
RET 


Note that the pointers HL and DE remain as they were, pointing to STKEND-5 and 
STKEND respectively, so that the last value remains on the calculator stack. If required it 
can be removed by using delete. 
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Exchange Subroutine 


Exchanges the first number with the second number, i.e. the topmost two numbers on 
the calculator stack are exchanged. 


EXCHANGE (FP_SWAP) 


M37FB LD B,$05 Five bytes are involved. 
SWAP-BYTE 
M37FD LDA,(DE) Each byte of the 2nd number. 
LD C,(HL) Each byte of the 1st number. 
EX DE,HL Switch source and destination. 
LD (DE),A Now to the 1st number. 
LD (HL),C Now to the 2nd number. 
INC HL Move to operate on next pair 
INC DE of bytes. 
DJNZ SWAP-BYTE Exchange all 5 bytes. 
EX DE,HL Get the pointers correct as 5 is an odd number. 
RET 


Series Generator Subroutine 


Generates the series of Chebyshev polynomials which are used to approximate to SIN, 
ATN, LN and EXP and derive the other arithmetic functions which depend on these (COS, 
TAN, ASN, ACS, ** and SOR). The SERIES GENERATOR returns to the calling routine a 
last value that bears a simple relationship to the requested function, for instance, SIN X. 


The setting of the loop counter: The calling subroutine passes its parameters in the A 
register for use as a counter. The calculator is entered at GEN-ENT-1 so that the counter 
can be set. 


SERIES-06-ETC (FP_FLOAT) 


M3808 LDB,A Move the parameter to B. 
CALL GEN-ENT-1 Effectively RST 28 but set the counter. 
DEFB $31 duplicate Z,Z 
DEFB $0F addition 2*Z 
DEFB $CO st-mem-0 2*Z mem-0 holds 2*Z 
DEFB $02 delete - 
DEFB $A0 stk-zero 0 
DEFB $C2 st-mem-2 0 mem-2 holds 0 
G-LOOP 
M3812 DEFB $31 duplicate B(R),B(R) 
DEFB $EO деі-тет-0 B(R),B(R),2*Z 
DEFB $04 multiply B(R),2*B(R)*Z 
DEFB $E2 get-mem-2 B(R),2*B(R)*Z,B(R-1) 
DEFB $C1 st-mem-1 mem-1 holds B(R-1) 
DEFB $38 end-calc 
DEFB $03 subtract B(R),2*B(R)*Z-B(R-1) 


The next constant is placed on the calculator stack. 
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CALL STK-DATA B(R),2*B(R)*Z-B(R-1),A(R+1) 
The calculator is re-entered without disturbing BREG. 


CALL GEN-ENT-2 


DEFB $0F addition B(R),2*B(R)*Z-B(R-1)+A(R+1) 
DEFB $01 exchange 2*B(R)*Z-B(R-1)+A(R+1),B(R) 
DEFB $C2 st-mem-2 mem-2 holds B(R) 
DEFB $02 delete 2*B(R)*Z-B(R-1)+A(R!1) = B(R!1) 
DEFB $35 dec-jr-nz B(R+1) 
DEFB $EE, to G-LOOP 
The subtraction of B(N-2): The loop above leaves B(N) on the stack and the required 
result is given by B(N) - B(N-2). 
DEFB $E1 get-mem-1 B(N),B(N-2) 
DEFB $03 subtract B(N)-B(N-2) 
DEFB $38 end-calc 
RET 


Absolute Magnitude Function 


Performs its unary operation by ensuring that the sign bit of a floating-point number is 
reset. Small integers have to be treated separately. Most of the work is shared with the 
unary minus operation. 


ABS (FP_ABS) 
M3829 LD B,$FF Set B to $FF. 
JR NEG-TEST 


Unary Minus Operation 


Performs its unary operation by changing the sign of the last value on the calculator 
stack. Zero is returned unchanged. 


Full five byte floating-point numbers have their sign bit manipulated so that it ends up 
reset (for abs) or changed (for negate). Small integers have their sign byte set to zero (for 
abs) or changed (for negate). 


NEGATE (FP_NEGATE) 


M382D CALL TEST-ZERO Return if number is zero. 
RET C 
LD B,$00 Prep B for negate. 
NEG-TEST 
M3833 LD A,(HL) If the first byte is zero, jump to handle 
ANDA a small integer. 
JR Z,INT-CASE 
INC HL Point to the 2nd byte. 
LD A,B Get the sign mask. 
AND $80 $80 for abs, $00 for negate. 
OR (HL) Set bit 7 for abs, no change for negate. 
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RLA Bit 7 is changed, leading to bit 7 
CCF of byte 2 reset for abs and simply 
RRA changed for negate. 
LD (HL),A Store new 2nd byte. 
DEC HL Point back to 1st byte. 
RET 

INT-CASE 

Integer case does a similar operation with the sign byte. 

M3842 PUSH DE Save the working registers. 
PUSH HL 
CALL INT-FETCH Get sign in C, number in DE. 
POP HL Restore pointer to the number in HL. 
LD A,B Get $FF for abs, $00 for negate. 
ORC $FF for abs, no change for negate. 
CPL $00 for abs, changed byte for negate, 
LD CA store in C. 
CALL INT-STORE Store result on the stack. 
POP DE Restore STKEND to DE. 
RET 


SIGNUM Function 


Handles the function SGN X and returns a last value of 1 if X is positive, zero if X is zero 
and -1 if X is negative. 


SGN 

M3851 CALL TEST-ZERO Return if X is zero. 
RET C 

FP_SGN 

M3855 PUSH DE Save pointer to STKEND. 
LD DE,$0001 
INC HL Point to the sign byte. 
RL (HL) Rotate bit 7 to carry flag. 
DEC HL Point back to start of number. 
SBC A,A C = $00 for positive, 
LD СА $FF for negative. 
CALL INT-STORE Stack 1 or -1 as required. 
POP DE Restore pointer to STKEND. 
RET 
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IN Function 


Handles the function IN X. It inputs at processor level from port X, loading BC with X and 
performing the instruction IN A,(C). 


IN (FP IN) 

M3864 CALL FIND-INT2 X is compressed to BC. 
IN A,(C) Get the data from the port. 
JR IN-PK-STK Jump to stack result. 


PEEK Function 


Handles the function PEEK X. The last value is unstacked by calling FIND-INT2 and 
replaced by the value of the contents of the required location. 


PEEK (FP PEEK) 


M3868 САШ FIND-INT2 Get last value to BC. 

LD A,(BC) Get the memory value to A. 
IN-PK-STK 
M386F JP STACK-A Put A on calculator stack. 


USR Function 


This subroutine handles the function USR #. The number is obtained in BC, a return 
address is stacked and the machine code is executed from the location. 


USR-NO (FP USR) 


M3872 CALL FIND-INT2 Get the number from the stack, rounded to the 
nearest integer, test that it is in range and return 
in BC. 

CALL USR-IN-AROS See if the USR code is in AROS. 
LD HL,$3882 Set first return address to USRRET. 
PUSH HL 

LD HL,$30E9 Push address of STACK-BC. 

PUSH HL 

PUSH BC Push the address of the function. 
RET 

USRRET 

Return from USR function. 

M3882 POP AF Get USR bank. 

INCA 
RET Z Return with Z set. 
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The code below, which is unused, would have supported user routines in other banks 
beyond the DOCK bank. 


M3885 PUSH BC Save BC. 
LD BC,$FFOO Set HOME bank, all chunks. 
CALL BANK_ENABLE 
POP BC Restore BC. 
RET 
USR-IN-AROS 
Check to see if this USR function is in an AROS. 
M388E LD HL,(SYSCON) Address of the SYSCON table. 
INC HL Skip to the type byte. 
LD A,(HL) Get the type. 
CP $02 Is it ап AROS? 
JR NZ, BANK-255 No, jump ahead. 
INC HL Skip LSB of starting address. 
INC HL Skip MSB of starting address. 
INC HL HL points to memory chunk specification. 
LD A,B MSB of USR address to A. 
BIT 7,A Is the USR function in chunk 7? 
JR Z, BANK-255 Yes, enable the HOME bank. 
AND $06 Reduce to chunks 2 and 3. If it set Z, 
JR Z, CK-A-4 test the memory chunk spec for chunk 4. 
SUB $04 Remove 4 from what's left. 
JP M, CK-A-5 Negative result? Look for chunk 5. 
JR Z, CK-A-6 Zero? Look for chunk 6. 
LD A,(HL) Put the memory chunk spec in A. 
JP M, BANK-255 Is it negative? Set the HOME bank. 
JR USR-BANK Otherwise, it's in the DOCK bank. 
CK-A-6 
USR test for chunk 6. 
M38BO LD A,(HL) Get the chunk spec. 
BIT 6,A Is chunk 6 set? 
JR Z, USR-BANK Yep, enable that bank/chunk. 
JR BANK-255 Nope, HOME bank. 
CK-A-5 
USR test for chunk 5. 
M38B7  LD A,(HL) Same as above but for chunk 5. 
BIT 5,A 
JR Z, USR-BANK 
JR M38C5 
CK-A-4 
USR test for chunk 4. 
M38BE  LD A,(HL) Same as above for chunk 4. 
BIT 4,A 


JR Z, USR-BANK 
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JR BANK-255 


BANK-255 
USR code is in the HOME bank. 
M38C5 POP HL 

LD A,$FF 

PUSH AF 

PUSH HL 

RET 


USR-BANK 
USR switch to bank (AROS). 
M38CB POP HL 
PUSH AF 
PUSH HL 
PUSH BC 
LD C,A 
LD B,$00 
CALL BANK_ENABLE 
POP BC 
RET 


USR-STRING Function 
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Home bank. 
Push to stack. 


Briefly save BC. 
Chunk map to C. 
Dock bank. 


Restore BC. 


This subroutine handles the function USR X$. Returns in BC the address of the bit pattern 
for the user-defined graphic corresponding to X$. It reports error A if X$ is not a single 
letter between a and u nor a user-defined graphic. 


USR-$ (FP USRS) 

M38D7 CALL STK-FETCH 
DEC BC 
LD A,B 
ORC 
JR NZ, REPORT-A 
LD A,(DE) 
CALL ALPHA 
JR C, USR-RANGE 
SUB $90 


JR C, REPORT-A 
CP $15 

JR NC, REPORT-A 
INC A 


USR-RANGE 
M38EE DECA 

ADD A,A 

ADD A,A 

ADD A,A 

CP $A8 

JR NC, REPORT-A 


Get the parameters of the string. 
Decrease length by 1 to test it. 

If the length was not 1, then jump 
to give error report A. 


Get the single code of the string. 

Is it a letter? 

If so, jump to get its address. 

Reduce range for user-defined graphics 
to 0 to 20 decimal. 

Report A if out of range. 

Test the range again. 

Report A if out of range. 

Make range 1 to 21 decimal, a to u. 


Name the range 0 to 20 decimal. 
Multiply by 8 to get offset for the 
address. 


Test the range of the offset. 
Error if out of range. 
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LD BC,(UDG) Put address of user-defined graphic in BC. 
ADD A,C Add C to the offset. 
LD C,A Move the result to C. 
JR NC, USR-STACK Jump if no carry. 
INC B Increment B to complete the address. 
USR-STACK 
M38FF JP STACK-BC Jump to stack the address. 
REPORT-A 
M3902  RST $08 Error: Invalid argument. 
DEFB $09 


TEST-ZERO Subroutine 


Tests whether a floating-point number is zero. Requires that the first four bytes of the 
number are zero. Returns with the carry flag set if the number was in fact zero. 


TEST-ZERO (TESTO) 
M3904 PUSH HL Save HL, BC, and A. 
PUSH BC 
LD B,A 
LD A,(HL) OR all of the components of the 
INC HL floating point value together. this will 
OR (HL) produce zero if the number is zero. 
INC HL 
OR (HL) 
INC HL 
OR (HL) 
LD A,B Restore HL, BC, and A. 
POP BC 
POP HL 
RET NZ Return if not zero. 
SCF Set carry and return if zero. 
RET 


Greater Than Zero Operation 


Returns a last value of one if the current last value is greater than zero and zero otherwise. 
Used by other subroutines to jump on plus. 


GREATER-O (FP_PLUSQ) 
M3914 САШ TEST-ZERO 


RET C Return if (HL) is zero. 
LD A,$FF Jump forward to less than zero 
JR SIGN-TO-C but signal the opposite if action is necessary. 
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NOT Function 


Returns a one on the stack if the current last value is zero and zero otherwise. Used by 
other subroutines to jump on zero. 


NOT (FP_NOT) 
M391C САШ TEST-ZERO Test (HL) for zero. 
JR ЕР-0/1 Jump forward. 


Less Than Zero Operation 


Returns a one on the stack if the current last value is less than zero and zero otherwise. 
Used by other subroutines to jump on minus. 


LESS-0 (FP_MINUSQ) 


M3921 XORA Clear A. 

SIGN-TO-C 

M3922 INC HL Point to the sign byte of the integer to be tested. 
XOR (HL) Carry is reset for positive, set for negative. 
DEC HL 
RLCA 


Zero Or One Subroutine 


Sets the last value to zero if the carry flag is reset and to one if it is set. When called from 
E-TO-FP, it creates the zero or one not on the stack but in mem-O. 


FP-0/1 (STBOOL) 


M3926 PUSH HL Save the result pointer. 
LD A,$00 Clear A without disturbing carry. 
LD (HL),A Store 0 into the first byte. 
INC HL Point to 2nd byte. 
LD (HL),A Set it to 0 as well. 
INC HL Point to 3rd byte. 
RLA Rotate carry into A, making A $1 if 
carry is set or $0 if not. 
LD (HL),A Set 3rd byte to $1 or $0. 
RRA Restore A to $0. 
INC HL Point to 4th byte. 
LD (HL),A Set 4th byte to $0. 
INC HL Point to 5th byte. 
LD (HL),A Set 5th byte to $0. 
POP HL Restore result pointer and return. 
RET 
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OR Operation 


Performs the binary operation 'X OR Y' and returns X if Y is zero and the value 1 
otherwise. 


OR (ЕР OR) 

M3936 EX DE,HL Point HL at Y, the second number. 
CALL TEST-ZERO Test whether Y is zero. 
EX DE,HL Restore the pointers. 
RET C Return if Y was zero; X is now last value. 
SCF Set the carry flag and jump back to 
JR FP-0/1 set the last value to 1. 


Number And Number Operation 


Performs the binary operation 'X AND Y' and returns X if Y is non-zero and zero 
otherwise. 


NO-&-NO (FP AND) 


M393F  EXDE,HL Point HL to Y, DE to X. 
CALL TEST-ZERO Test whether Y is zero. 
EX DE,HL Swap registers back. 
RET NC Return with X as last value if Y was non-zero. 
AND A Reset the carry flag and jump back to 
JR FP-0/1 set the last value to zero. 


String And Number Operation 


This subroutine performs the binary operation 'X$ AND Y' and returns X$ if Y is non-zero 
and a null string otherwise. 


STR-&NO (ЕР STGAND) 


M3948 EX DE,HL Point HL to Y, DE to X$. 
CALL TEST-ZERO Test whether Y is zero. 
EX DE,HL Swap pointers back. 
RET NC Return with X$ as last value if Y was not zero. 
PUSH DE Save the pointer to the number. 
DEC DE Point to 5th byte of string parameters 
(length-high). 
XOR A Clear A. 
LD (DE),A Set length-high to 0. 
DEC DE Point to length-low. 
LD (DE),A Set length-low to 0. 
POP DE Restore the pointer. 
RET 
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Comparison Operations 


Perform the twelve possible comparison operations (по-/-едј, no-gr-eq, поѕ-педј, no-grtr, 
no-less, по5-еді, str-l-eql, str-gr-eq, strs-neql, str-grtr, str-less & strs-eql). The single 
operation offset is in B at the start of the subroutine. 


NO-L-EOL (FP LE, FP GE, FP NE, ЕР GT, FP LT, FP EQU, FP STLE, 
FP STGE, FP STNE, FP STGT, FP STLT, FP STEQU) 


M3956 


LD A,B 
SUB $08 
BIT 2,A 


JR NZ, EX-OR-NOT 


DECA 


EX-OR-NOT 


M395E 


RRCA 


JR NC, NU-OR-STR 
PUSH AF 

PUSH HL 

CALL EXCHANGE 
POP DE 

EX DEHL 

POP AF 


NU-OR-STR 


M3969 


BIT 2,A 
JR NZ, STRINGS 
RRCA 


PUSH AF 
CALL SUBTRACT 
JR END-TESTS 


STRINGS 


M3974 


RRCA 


PUSH AF 

CALL STK-FETCH 
PUSH DE 

PUSH BC 

CALL STK-FETCH 
POP HL 


Copy offset to A. 

Make range $01-$06 & $09-$0E. 
Range changed to $00-$02, $04-$06, 
$08-$0A, $0C-$0E. 


Reduced again to $00-$07 with carry set for GTE 
or LTE. The operations with 

carry set are treated as their 

complementary operation once the values 

have been exchanged. 


Separate the numerical comparisons from 
strings by testing bit 2. 

Numerical operations are $00-$01 with 
carry set for equal or not equal. 

Save the offset. 

Subtract numbers for final tests. 


String comparisons are $02-$03 with 

carry set for equal and not equal. 

Save the offset. 

Lengths and starting address of the strings 
are fetched from calculator stack. 


Length of the 2nd string. 
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BYTE-COMP 
M397F LDA,H 
ORL 
EX (SP),HL 
LD A,B 
JR NZ, SEC-PLUS 
ORC 


SECND-LOW 
M3986 POP BC 
JR 2, BOTH-NULL 
POP AF 
CCF 
JR STR-TEST 


BOTH-NULL 
M398D POP AF 
JR STR-TEST 


SEC-PLUS 
M3990 ORC 
JR Z,FRST-LESS 
LD A,(DE) 
SUB (HL) 
JR C, FRST-LESS 


JR NZ, SECND-LOW 


DEC BC 

INC DE 

INC HL 

EX (SP),HL 
DECHL 

JR BYTE-COMP 


FRST-LESS 

M39A0 РОР BC 
POP AF 
AND A 


STR-TEST 

M39A3 PUSH AF 
RST $28 
DEFB $A0 
DEFB $38 


END-TESTS 

М39А7 POP AF 
PUSH AF 
CALL С, NOT 
POP AF 
PUSH AF 
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Jump unless 2nd string is null. 


Second string is either null or less than first. 


Complement carry to get correct test 
result. 


Carry is used as it stands. 


First string is null, second is not. 
Neither string is null, compare 
next bytes. 

First byte is less. 

Second byte is less. 

Bytes are equal, decrement length 
and jump to BYTE-COMP 

to compare next bytes of the 
reduced strings. 


Carry cleared for correct result. 


For string tests, put a zero on calc stack. 
Call calculator. 
stk-zero 


These three test, give the correct results 
for all twelve comparisons. 

The initial carry is set for not equal and 
equal, and the final carry is set for GT, LT 
and equal. 


CALL NC,GREATER-0 
POP AF 

RRCA 

CALL NC, NOT 

RET 
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String Concatenation Operation 


Performs the binary operation A$+B$. Parameters for these strings are fetched and the 
total length found. Sufficient room to hold both the strings is made available in the work 
space and the strings are copied over. Subroutine produces a temporary variable A$+B$ 


that resides in the work space. 


STRS-ADD (FP_CONCAT) 
M39B7 CALL STK-FETCH 
PUSH DE 
PUSH BC 
CALL STK-FETCH 
POP HL 
PUSH HL 
PUSH DE 
PUSH BC 
ADD HL,BC 
LD B,H 
LD C,L 
RST $30 
CALL STK-ST-$ 
POP BC 
POP HL 
LD A,B 
ORC 
JR 2, OTHER-STR 
LDIR 


OTHER-STR 
M39D2 POP BC 
POP HL 
LD A,B 
ORC 
JR Z,STK-PNTRS 
LDIR 


STK-PNTRS Subroutine 


Get parameters of 2nd string and save. 


Get parameters of 1st string and save. 


Lengths are no in HL and BC. 
Save parameters of first string. 


Calculate total length of two and pass 
to BC. 


Make room for the string. 

Pass parameters of string to calculator stack. 
Retrieve parameters of first string 

and copy string to work space 

as long as the string is not null. 


Exactly the same procedure is followed 
for the second string to produce 
А$+В$. 


Resets HL to point to the first byte of the last value (STKEND-5) and DE to point one-past 


the 'last value' (STKEND). 


STK-PNTRS 

M39DA LD HL,(STKEND) 
LD DE,$FFFB 
PUSH HL 


Get current value of STKEND. 
Set DE to -5 (two's complement). 
Stack value for STKEND. 
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ADD HL,DE 
POP DE 
RET 


CHRS Function 


Calculate STKEND - 5. 
Put STKEND in DE. 


Handles the function CHR$ X and creates a single character string in the work space. 


CHRS (FP_CHR) 

M39E4 САШ FP-TO-A 
JR C, REPORT-B 
JR NZ, REPORT-B 
PUSH AF 
LD BC,$0001 
RST $30 
POP AF 
LD (DE),A 
CALL STK-ST-$ 
EX DE,HL 
RET 


REPORT-B 


M39F7  RST $08 
DEFB $0A 


VAL And VALS Function 


Last value is compressed into A. 
Error if X was > 255 or 

X was negative. 

Save compressed value of X. 
Make one space available. 


Fetch the value. 

Copy value to work space. 

Pass parameters of new string to calc stack. 
Reset pointers. 


Error: Integer out of range. 


Handles the functions VAL X$ and VAL$ X$. When handling VAL X$, it return a last value 
that is the result of evaluating the string (without its bounding quotes) as a numerical 
expression. When handling VAL$ X$, it evaluates X$ (without its bounding quotes) as а 
string expression and returns the parameters of that string expression as a last value on 


the calculator stack. 


VAL, VAL$ (FP_VALS) 
M39F9 LD HL,(CH_ADD) 
PUSH HL 
LD A,B 
ADD A,$E3 


SBC A,A 


PUSH AF 

CALL STK-FETCH 
PUSH DE 

INC BC 

RST $30 

POP HL 

LD (CH_ADD),DE 
PUSH DE 

LDIR 

EX DE,HL 
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Save current value of CH_ADD to machine stack. 


Offset for VAL vs VAL$ must be in B, copy to A. 
Produce $00 and carry set for VAL, $FB carry 
reset for VAL$. 

And $FF (bit 6 set) for VAL, $00 (bit 6 reset) 

for VAL$. 

Save this flag to the machine stack. 

Parameters of the string are fetched; the 
starting address is saved; one byte is added 

to the length and room for the string is 
created in work space. 

Starting address of string goes to HL as source. 
Pointer for first new space to CH_ADD and 
machine stack. 

Copy string to work space. 

Switch pointers. 


DEC HL 

LD (HL),$0D 

RES INTPT,(IY+OFLAGS) 
CALL SCANNING 
RST $18 

CP $0D 

JR NZ, V-RPORT-C 
POP HL 

POP AF 

ХОК (IY+OFLAGS) 
AND $40 


V-RPORT-C 

M3A27 ЈР NZ,REPORT-C 
LD (CH_ADD),HL 
SET INTPT,(IY+OFLAGS) 
CALL SCANNING 


POP HL 


LD (CH_ADD),HL 
JR STK-PNTRS 


STRS Function 
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Extra byte is replaced with 

carriage return. 

Reset syntax flag and 

scan string for correct syntax. 

Get current character. 

Check if this is the end of the expression. 
If not, report an error. 

Get starting address of string. 

Fetch flag for VAL/VAL$ and compare 
with NUM of result of syntax scan. 


Report an error if they do not match. 
Start address to CH_ADD again. 

Set flag for line execution. 

String is treated as next expression and 
a last value is produced. 

Restore original value of CH_ADD. 


Exit via this routine which resets pointers. 


Handles the function STR$ X and returns a last value, which is a set of parameters that 
define a string containing what would appear on the screen if X were displayed by a 


PRINT command. 


STR$ (FP_STR) 

M3A3A LD BC,$0001 
RST $30 
LD (KCUR),HL 
PUSH HL 
LD HL,(CURCHL) 
PUSH HL 
LD A,SFF 
CALL CHAN-OPEN 
CALL PRINT-FP 


POP HL 

CALL CHAN-FLAG 
POP DE 

LD HL,(KCUR) 
AND A 

SBC HL,DE 

LD B,H 

LD C,L 

CALL STK-ST-$ 
EX DE,HL 

RET 


Make 1 space in work space and 

copy address to KCUR, the address 

of the cursor. 

Save that address to the stack. 

Save current channel address to machine stack. 


Open channel “К” to print the string. 


Last value (X) is printed out in the work space and 
work space is expanded with each character. 
Restore CURCHL to HL and 

restore the flags appropriate to it. 

Restore start address of string. 

Cursor address is one past end of string 

and the difference is the length. 


Transfer length to BC. 


Pass parameters of new string to calc stack. 
Reset pointers. 
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READ-IN Subroutine 


Called via the calculator offset through the first line of the S-INKEY$ routine in 
SCANNING. Provides for the reading in of data through different streams from those 
available on the standard 2068. Like INKEY$, it returns a string. 


READ-IN (FP_INKEY) 


M3A60 CALL FIND-INT1 Convert numeric parameter to A. 
CP $10 Is it smaller than 16 decimal? 
JP NC,REPORT-B If not, report the error. 
LD HL,(CURCHL) Get the current channel pointer 
PUSH HL and save it on machine stack. 
CALL CHAN-OPEN Select the requested stream. 
CALL INPUT-AD Accept a signal (key value). 
LD BC,$0000 Default length of string is zero. 
JR NC,R-I-STORE Jump if no signal. 
INC C Make length 1. 
RST $30 Make a space in work space. 
LD (DE),A Put the string in it. 
R-I-STORE 
M3A7A CALL STK-ST-$ Pass parameters of string to calc stack. 
POP HL Restore CURCHL and appropriate flags. 


CALL CHAN-FLAG 
JP STK-PNTRS 


CODE Function 


Handles the function CODE A$ and returns the code of the first character in A$ or zero if 
A$ is null. 


CODE (FP. CODE) 


M3A84 CALL STK-FETCH Get the parameters of the string. 
LD A,B Test the length of the string. 
ORC 
JR Z, STK-CODE Jump forward if null. 
LD A,(DE) Put code of first character in A. 
STK-CODE 
M3A8C ЈР STACK-A Put A on calculator stack. 


LEN Function 


Handles the function LEN A$ and returns a last value that is equal to the length of the 
string. 


LEN (FP_LEN) 
CALL STK-FETCH Get the parameters of the string. 
JP STACK-BC Exit via STACK-BC, which puts BC (length) 
on the stack. 
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Decrease The Counter Subroutine 


Called by the SERIES GENERATOR subroutine and in effect is a DJNZ operation but the 
counter is the system variable, BREG, rather than B. 


DEC-JR-NZ (FP_LOOP) 


EXX Switch to alternate register set 

PUSH HL and save the next literal pointer on machine stack. 
LD HL,BREG Make HL point to BREG. 

DEC (HL) Decrement BREG. 

POP HL Restore the next literal pointer. 

JR NZ, JUMP-2 Jump on non-zero. 

INC HL Skip over next literal. 

EXX Return to main register set. 

RET 


Jump Subroutine 


Executes an unconditional jump when called by the literal 33. It is also used by the 
subroutines DECREASE THE COUNTER and JUMP ON TRUE. 


JUMP (FP_JUMP) 


M3AA1 EXX Switch to alternate register set. 
JUMP-2 
M3AA2 LD E,(HL) Put next literal (jump length) in E’. 
LD A,E Make A $00 or $FF based on 
RLA whether Е' is positive or negative 
SBC A,A and copy to D’. 
LD D,A 
ADD HL,DE Add to H'L for next literal pointer. 
EXX Return to main register set. 
RET 


Jump On True Subroutine 


Executes a conditional jump if the last value on the calculator stack (the number 
addressed currently by DE) is true. 


JUMP-TRUE (FP_IFJUMP) 


M3AAA INC DE Point to the 3rd byte, which is О or 1. 
INC DE 
LD A,(DE) Copy byte to A. 
DEC DE Point back to 1st byte. 
DEC DE 
ANDA Is A zero? 
JR NZ, JUMP Jump if byte is non-zero. 
EXX Go to alternate register set. 
INC HL Skip jump length. 
EXX Back to main registers. 
RET 
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END-CALC Subroutine 
Ends a calculator (RST 0028) operation. 


END-CALC (FP QUIT) 


M3AB6 POP AF Discard return address to calculator. 
EXX Get address from H'L', put it on 
EX (SP),HL machine stack and make an indirect 
jump to it. 
EXX H'L' holds any earlier address in the 
RET calculator chain of addresses. 


MODULUS Subroutine 


Calculates M (mod M), where M is a positive integer held at the top of the calculator 
stack and N is the integer held on the stack beneath M. Returns the integer quotient INT 
(N/M) at the top of the calculator stack and the remainder N-INT (N/M) in the second 
place on the stack. Called during the calculation of a random number to reduce N mod 
65537 decimal. 


N-MOD-M (FP INTDIV) 


M3ABB RST $28 Call calculator. 
DEFB $CO st-mem-0O 
DEFB $02 delete 
DEFB $31 duplicate 
DEFB $ЕО get-mem-0 
DEFB $05 division 
DEFB $27 int 
DEFB $ЕО get-mem-0 
DEFB $01 exchange 
DEFB %С0 st-mem-0O 
DEFB $04 multiply 
DEFB $03 subtract 
DEFB $EO get-mem-0 
DEFB $38 end-calc 
RET 


INT Function 


Handles the function INT X and returns a last value that is the integer part of the value 
supplied. When X is a negative integer (X) is returned, otherwise (X)-1 is returned. 


INT (FP_INT) 

МЗАСА RST $28 Call calculator. 
DEFB $31 duplicate 
DEFB $36 Іе55-0 
DEFB $00,$04 jump-true X-NEG 
DEFB $3A truncate 
DEFB $38 end-calc 
RET 
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X-NEG 

M3AD2 DEFB $31 duplicate 
DEFB $3A truncate 
DEFB $CO st-mem-O 
DEFB $03 subtract 
DEFB $EO get-mem-0 
DEFB $01 exchange 
DEFB $30 not 
DEFB $00,$03 jump-true EXIT 
DEFB $A1 stk-one 
DEFB $03 subtract 

EXIT 

M3ADD DEFB $38 end-calc 
RET 


Exponential Function 
Handles the function EXP X and is the first of four routines that use SERIES GENERATOR 
to produce Chebyshev polynomials. 


EXP 
M3ADF RST $28 Call calculator. 
DEFB $3D re-stack X (in full floating-point form) 
DEFB $34 stk-data 
DEFB $F1 exponent 
DEFB $38,$AA,$3B,$29 
DEFB $04 multiply 
DEFB $31 duplicate 
DEFB $27 int 
DEFB $C3 st-mem-3 
DEFB $03 subtract 
DEFB $31 duplicate 
DEFB $0F addition 
DEFB $A1 stk-one 
DEFB $03 subtract 
DEFB $88 series-08 
DEFB $13,$36 EXP 63,$36,(00,00,00) 
DEFB $58,$65,$66 EXP 68 $65,$66,(00,00) 


DEFB $9D,$78,$65,$40 EXP 6D $78,$65,$40,(00) 
DEFB $A2,$60,$32,$C9 EXP 72 $60,$32,$C9,(00) 


DEFB $E7 EXP 77 $21,$F7,$AF,$24 
DEFB $21,$F7,$AF,$24 

DEFB $EB EXP 7B $2F,$B0,$B0,$14 
DEFB $2F,$B0,$B0,$14 

DEFB $EE EXP 7E $7E,$BB,$94,$58 
DEFB $7E,$BB,$94,$58 

DEFB $F1 EXP 81 $3A,$7E,$F8,$CF 
DEFB $3A,$7E,$F8,$CF 

DEFB $E3 get-mem-3 
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DEFB $38 end-calc 
CALL FP-TO-A Put abs value of N mod 256 in A. 
JR NZ,N-NEGTV Jump forward if N was negative. 
JR C, REPORT-6 Error if ABS N > 256. 
ADD A,(HL) Add ABS N to exponent. 
JR NC, RESULT-OK 
REPORT-6 
M3B1E RST $08 Error: Number too big. 
DEFB $05 
N-NEGTV 
M3B20 JRC, RSLT-ZERO If N « -255, result is 0. 
SUB (HL) Subtract ABS N from exponent if negative. 
JR NC, RSLT-ZERO Zero result if e less than zero. 
NEG Minus e changed to e. 
RESULT-OK 
M3B27 LD (HL),A Save exponent to A. 
RET 
RSLT-ZERO 
M3B29 ВТ $28 Call calculator. 
DEFB $02 delete 
DEFB $A0 stk-zero 
DEFB $38 end-calc 
RET 


Natural Logarithm Function 


Handles the function LN X. Use SERIES GENERATOR to produce Chebyshev polynomials. 


LN (FP LN) 
МЗВ2Е RST $28 Call calculator. 
DEFB $3D re-stack 
DEFB $31 duplicate 
DEFB $37 greater-0 
DEFB $00,$04 jump-true VALID 
DEFB $38 end-calc 
REPORT-A 
M3B35 RST $08 Error: Invalid argument. 
DEFB $09 
VALID 
M3B37  DEFB %А0 stk-zero 
DEFB $02 delete 
DEFB $38 end-calc 
LD A,(HL) Exponent (e) goes into A. 
LD (HL),$80 X is reduced to X' 
CALL STACK-A Put A on calculator stack. 
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GRE.8 
M3B58 


RST $28 

DEFB $34 stk-data 
DEFB $38,$00 
DEFB $03 

DEFB $01 

DEFB $31 

DEFB $34 

DEFB $FO 

DEFB $4C,$CC,$CC,$CD 
DEFB $03 

DEFB $37 

DEFB $00,$08 
DEFB $01 

DEFB $A1 

DEFB $03 

DEFB $01 

DEFB $38 

INC (HL) 

RST $28 


DEFB $01 

DEFB $34 

DEFB $F0,$31,$72,$17,$F8 
DEFB $04 

DEFB $01 

DEFB $A2 

DEFB $03 

DEFB $A2 

DEFB $03 

DEFB $31 

DEFB $34 

DEFB $32,$20 

DEFB $04 

DEFB $A2 

DEFB $03 

DEFB $8C 

DEFB $11,$AC 

DEFB $14,$09 

DEFB $56,$DA,$A5 
DEFB $59,$30,$C5 
DEFB $5C,$90,$AA 
DEFB $9E,$70,$6F,$61 
DEFB $A1,$CB,$DA,$96 
DEFB $A4,$31,$9F,$B4 
DEFB $E7 

DEFB $A0,$FE,$5C,$FC 
DEFB $EA 

DEFB $1B,$43,$CA,$36 


HOME ROM 


Call calculator. 


EXP 88 (00,00,00,00) 
subtract 

exchange 

duplicate 

stk-data 

EXP 80 $4C,$CC,$CC,$CD 


subtract 

greater-0 

jump-true GRE.8 
exchange 

stk-one 

subtract 

exchange 

end-calc 

Double Х' to give 2*X'. 
Call calculator. 


exchange 

stk-data LN2 

EXP 80 $31,$72,$17,$F8 
multiply 

exchange 

stk-half 

subtract 

stk-half 

subtract 

duplicate 

stk-data 

EXP 82 $20,(00,00,00,00) 
multiply 

stk-half 

subtract 

series12 

EXP 61 AC,(00,00,00) 
EXP 64, 09,(00,00,00) 
EXP 66 $DA,$A5,(00,00) 
EXP 69 $30,$C5,(00,00) 
EXP 6C $90,$AA, (00,00) 
EXP 6E $70,$6F,$6,(00) 
EXP 71 $CB,$DA,$96,(00) 
EXP 74 $31,$9F,$B4,(00) 
EXP 77 $A0,$FE,$5C,$FC 


EXP 7A $1B,$43,$CA,$36 
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DEFB $ED EXP 7D $A7,$9C,$7E,$5E 
DEFB $A7,$9C,$7E,$5E 

DEFB $FO EXP 80 $6E,$23,$80,$93 
DEFB $6E,$23,$80,$93 

DEFB $04 multiply 

DEFB $0F add 

DEFB $38 end-calc 

RET 


Reduce Argument Subroutine 


Transforms the argument X of SIN X or COS X into a value V. 


GET-ARGT (FP_ANGLE) 


M3B9E RST $28 Call calculator. 
DEFB $3D re-stack 
DEFB $34 stk-data 
DEFB $EE EXP 7E $22,$F9,$83,$6E 
DEFB $22,$F9,$83,$6E 
DEFB $04 multiply 
DEFB $31 duplicate 
DEFB $A2 stk-half 
DEFB $0F addition 
DEFB $27 int 
DEFB $03 subtract 
DEFB $31 duplicate 
DEFB $0F addition 
DEFB $31 duplicate 
DEFB $0F addition 
DEFB $31 duplicate 
DEFB $2A abs 
DEFB $A1 stk-one 
DEFB $03 subtract 
DEFB $31 duplicate 
DEFB $37 greater-0 
DEFB $CO st-mem-O 
DEFB $00,$04 jump-true ZPLUS 
DEFB $02 delete 
DEFB $38 end-calc 
RET 

ZPLUS 

M3BBC DEFB $A1 stk-one 
DEFB $03 subtract 
DEFB $01 exchange 
DEFB $36 less-O 
DEFB $00,$02 jump-true YNEG 
DEFB $1B negate 
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M3BC3 DEFB $38 


RET 


COSINE Function 


Handles the function COS X and returns a last value that is an approximation to COS X. 


COS (FP_COS) 


M3BC5 


RST $28 
DEFB $39 
DEFB $2A 
DEFB $A1 
DEFB $03 
DEFB $EO 
DEFB $00,$06 
DEFB $1B 
DEFB $33,$03 


SINE Function 


end-calc 


Call calculator. 
get-argt 

abs 

stk-one 

sub 

get-mem-O 
jump-true C-ENT 
negate 

jump C-ENT 
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Handles the function SIN X. Uses SERIES GENERATOR to produce Chebyshev 


polynomials. 


SIN (ЕР SIN) 
M3BDO RST $28 


C-ENT 
M3BD2 


DEFB $39 


DEFB $31 

DEFB $31 

DEFB $04 

DEFB $31 

DEFB $0F 

DEFB $A1 

DEFB $03 

DEFB $86 

DEFB $14,$E6 

DEFB $5C,$1F,$0B 
DEFB $A3,$8F,$38,$ EE 
DEFB $E9 

DEFB $15,$63,$BB,$23 
DEFB $EE 

DEFB $92,$0D,$CD,$ED 
DEFB $F1 

DEFB $23,$5D,$1B,$EA 
DEFB $04 

DEFB $38 

RET 


Call calculator. 
get-argt 


duplicate 

duplicate 

multiply 

duplicate 

addition 

stk-one 

subtract 

ѕегіеѕ-06 

ЕХР 64 $Е6,(00,00,00) 
EXP 6C $1F,$0B,(00,00) 
EXP 73 $8F,$38,$EE,(00) 
EXP 79 $15,$63,$BB,$23 


EXP 7E $92,$0D,$CD,$ED 
EXP 81 $23,$5D,$1B,$EA 


multiply 
end-calc 
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TAN FUNCTION 
Handles the function TAN X. Returns SIN X/COS X, with overflow if COS X = 0. 


TAN (FP_TAN) 


M3BF5 RST $28 Call calculator. 
DEFB $31 duplicate 
DEFB $1F sin 
DEFB $01 exchange 
DEFB $20 cos 
DEFB $05 divide 
DEFB $38 end-calc 
RET 


ARCTAN Function 


Handles the function ATN X. Uses SERIES GENERATOR to produce Chebyshev 
polynomials. It returns a real number between -РІ/2 and РІ/2, which is equal to the value 
in radians of the angle whose tan is X. 


ATN (FP_ATN) 


M3BFD CALL RE-STACK Use floating point form of X. 
LD A,(HL) Get exponent of X. 
CP $81 
JR C, SMALL Jump forward where i: Y=X. 
RST $28 Call calculator. 
DEFB $A1 stack-one 
DEFB $1B negate 
DEFB $01 exchange 
DEFB $05 divide 
DEFB $31 duplicate 
DEFB $36 Іе55-0 
DEFB ФАЗ stk-pi/2 
DEFB $01 exchange 
DEFB $00,$06 jump-true CASES 
DEFB $1B negate 
DEFB $33,$03 jump CASES 
SMALL 
M3C13 RST $28 
DEFB $АО stk-zero 
CASES 
M3C15  DEFB $01 exchange 
DEFB $31 duplicate 
DEFB $31 duplicate 
DEFB $04 multiply 
DEFB $31 duplicate 
DEFB $0F addition 
DEFB $A1 stk-on 
DEFB $03 subtract 
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DEFB $8C 

DEFB $10,$B2 

DEFB $13,$0E 

DEFB $55,$E4,$8D 
DEFB $58,$39,$BC 
DEFB $5B,$98,$FD 
DEFB $9E,$00,$36,$75 
DEFB $A0,$DB,$E8,$B4 
DEFB $63,$42,$C4 
DEFB %Е6 

DEFB $B5,$09,$36,$BE 
DEFB $E9 

DEFB $36,$73,$1B,$5D 
DEFB $EC 

DEFB $D8,$DE,$63,$BE 
DEFB $ЕО 

DEFB $61,$A1,$B3,$0C 
DEFB $04 

DEFB $0F 

DEFB $38 

RET 


ARCSIN Function 


series-OC 

EXP 60 $B2,(00,00,00) 
EXP 63 $0E,(00,00,00) 
EXP 65 $E4,$8D,(00,00) 
EXP 68 $39, $BC,(00,00) 
EXP 6B $98,$FD,(00,00) 
EXP 6E $00,$36,$75,(00) 
EXP 70 $DB,$E8,$B4,(00) 
EXP 73 $42,$C4,(00,00) 
EXP 76 $B5,$09,$36,$BE 


EXP 79 $36,$73,$1B,$5D 

EXP 7C $D8,$DE,$63,$BE 
EXP 80 $61,$A1,$B3,$0C 

multiply 


addition 
end-calc 


HOME ROM 


Handles the function ASN X and returns a real number from -PI/2 to PI/2 (inclusive) which 
is equal to the value in radians of the angle whose sine is X. Thereby if Y = ASN X then X 


7 SIN Y. 


ASN (FP. ASN) 

M3C4E RST $28 
DEFB $31 
DEFB $31 
DEFB $04 
DEFB $A1 
DEFB $03 
DEFB $1B 
DEFB $28 
DEFB $A1 
DEFB $0F 
DEFB $05 
DEFB $24 
DEFB $31 
DEFB $0F 
DEFB $38 
RET 


Call calculator. 
duplicate 
duplicate 
multiply 
stk-one 
subtract 
negate 
sqr 
stk-one 
addition 
division 
atn 
duplicate 
addition 
end-calc 
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ARCCOS Function 


Handles the function ACS X and returns a real number from zero to Р! (inclusive) which is 
equal to the value in radians of the angle whose cosine is X. 


ACS (FP_ACS) 


M3C5E RST $28 Call calculator. 
DEFB $22 asn 
DEFB $A3 stk-Pl/2 
DEFB $03 subtract 
DEFB $1B negate 
DEFB $38 end-calc 
RET 


SQUARE ROOT Function 


Handles the function SOR X and returns the positive square root of the real number X if X 
is positive, and zero if X is zero. 


SOR (FP ROOT) 


M3C65 RST $28 Call calculator. 
DEFB $31 duplicate 
DEFB $30 not 
DEFB $00,$1E jump-true LAST 
DEFB $A2 stk-half 
DEFB $38 end-calc 


EXPONENTIATION Operation 


Performs the binary operation of raising the first number, X, to the power of the second 
number, Y. 


TO-POWER (FP_TO_THE) 


M3C6C RST $28 Call calculator. 
DEFB $01 exchange 
DEFB $31 duplicate 
DEFB $30 not 
DEFB $00,$07 jump-true XISO 
DEFB $25 In 
DEFB $04 multiply 
DEFB $38 ex-calc 
JP EXP 

XISO 

M3C78  DEFB $02 delete 
DEFB $31 dup 
DEFB $30 not 
DEFB $00,$09 jump-true ONE 
DEFB $A0 stk-zero 
DEFB $01 exchange 
DEFB $37 greater-0 
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DEFB $00,$06 jump-true LAST 
DEFB $A1 stk-one 
DEFB $01 exchange 
DEFB $05 division 

ONE 

M3C85 DEFB $02 delete 
DEFB $A1 stk-one 

LAST 

M3C87  DEFB $38 end-calc 
RET 


Tape Messages 


SEPRMT 

M3C89  DEFM $808 "Start tape, then press any кеу" &('.'+$80) 
DEFM $0D&"Program:"&(' '+$80) 
DEFM $0D&" Number array:" &(' '+$80) 
DEFM $0D&" Character array:" &(' '+$80) 
DEFM $0D&"Bytes:" &(' '+$80) 
DEFB 5ЕҒ,ФЕР, ФЕР, ФЕҒ,ФЕР, ФЕР, ФЕҒ,ФЕЕ 
DEFB 5ЕҒ,ФЕР, ФЕР, ФЕҒ, ФЕР, ФЕР, ФЕҒ,ФЕЕ 
DEFB 5ЕҒ,ФЕР, ФЕР, ФЕҒ, ФЕР, ФЕР, ФЕҒ,ФЕРЕ 
DEFB 5ЕҒ,ФЕР, ФЕР, ФЕҒ, ФЕР, ФЕР, ФЕҒ,ФЕРЕ 
DEFB $FF,$FF,$FF,$FF 
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Character Set 


CHRSET 
M3D00 
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DEFB $00,$00,$00,$00,$00,$00,$00,$00 
DEFB $00,$10,$10,$10,$10,$00,$10,$00 
DEFB $00,$24,$24,$00,$00,$00,$00,$00 
DEFB $00,$24,$7E,$24,$24,$7E,$24,$00 
DEFB $00,$08,$3E,$28,$3E,$0A,$3E,$08 
DEFB $00,$62,$64,$08,$10,$26,$46,$00 
DEFB $00,$10,$28,$10,$2A,$44,$3A,$00 
DEFB $00,$08,$10,$00,$00,$00,$00,$00 
DEFB $00,$04,$08,$08,$08,$08,$04,$00 
DEFB $00,$20,$10,$10,$10,$10,$20,$00 
DEFB $00,$00,$14,$08,$3E,$08,$14,$00 
DEFB $00,$00,$08,$08,$3E,$08,$08,$00 
DEFB $00,$00,$00,$00,$00,$08,$08,$10 
DEFB $00,$00,$00,$00,$3E,$00,$00,$00 
DEFB $00,$00,$00,$00,$00,$18,$18,$00 
DEFB $00,$00,$02,$04,$08,$10,$20,$00 
DEFB $00,$3C,$46,$4A,$52,$62,$3C,$00 
DEFB $00,$18,$28,$08,$08,$08,$3E,$00 
DEFB $00,$3C,$42,$02,$3C,$40,$7E,$00 
DEFB $00,$3C,$42,$0C,$02,$42,$3C,$00 
DEFB $00,$08,$18,$28,$48,$7E,$08,$00 
DEFB $00,$7E,$40,$7C,$02,$42,$3C,$00 
DEFB $00,$3C,$40,$7C,$42,$42,$3C,$00 
DEFB $00,$7E,$02,$04,$08,$10,$10,$00 
DEFB $00,$3C,$42,$3C,$42,$42,$3C,$00 
DEFB $00,$3C,$42,$42,$3E,$02,$3C,$00 
DEFB $00,$00,$00,$10,$00,$00,$10,$00 
DEFB $00,$00,$10,$00,$00,$10,$10,$20 
DEFB $00,$00,$04,$08,$10,$08,$04,$00 
DEFB $00,$00,$00,$3E,$00,$3E,$00,$00 
DEFB $00,$00,$10,$08,$04,$08,$10,$00 
DEFB $00,$3C,$42,$04,$08,$00,$08,$00 
DEFB $00,$3C,$4A,$56,$5E,$40,$3C,$00 
DEFB $00,$3C,$42,$42,$7E,$42,$42,$00 
DEFB $00,$7C,$42,$7C,$42,$42,$7C,$00 
DEFB $00,$3C,$42,$40,$40,$42,$3C,$00 
DEFB $00,$78,$44,$42,$42,$44,$78,$00 
DEFB $00,$7E,$40,$7C,$40,$40,$7E,$00 
DEFB $00,$7E,$40,$7C,$40,$40,$40,$00 
DEFB $00,$3C,$42,$40,$4E,$42,$3C,$00 


сотто сос > @ омил ~: 


DEFB $00,$42,$42,$7E,$42,$42,$42,$00 
DEFB $00,$3E,$08,$08,$08,$08,$3E,$00 
DEFB $00,$02,$02,$02,$42,$42,$3C,$00 
DEFB $00,$44,$48,$70,$48,$44,$42,$00 
DEFB $00,$40,$40,$40,$40,$40,$7E,$00 
DEFB $00,$42,$66,$5A,$42,$42,$42,$00 
DEFB $00,$42,$62,$52,$4A,$46,$42,$00 
DEFB $00,$3C,$42,$42,$42,$42,$3C,$00 
DEFB $00,$7C,$42,$42,$7C,$40,$40,$00 
DEFB $00,$3C,$42,$42,$52,$4A,$3C,$00 
DEFB $00,$7C,$42,$42,$7C,$44,$42,$00 
DEFB $00,$3C,$40,$3C,$02,$42,$3C,$00 
DEFB $00,$FE,$10,$10,$10,$10,$10,$00 
DEFB $00,$42,$42,$42,$42,$42,$3C,$00 
DEFB $00,$42,$42,$42,$42,$24,$18,$00 
DEFB $00,$42,$42,$42,$42,$5A,$24,$00 
DEFB $00,$42,$24,$18,$18,$24,$42,$00 
DEFB $00,$82,$44,$28,$10,$10,$10,$00 
DEFB $00,$7E,$04,$08,$10,$20,$7E,$00 
DEFB $00,$0E,$08,$08,$08,$08,$0E,$00 
DEFB $00,$00,$40,$20,$10,$08,$04,$00 
DEFB $00,$70,$10,$10,$10,$10,$70,$00 
DEFB $00,$10,$38,$54,$10,$10,$10,$00 
DEFB $00,$00,$00,$00,$00,$00,$00,$FF 
DEFB $00,$1C,$22,$78,$20,$20,$7E,$00 
DEFB $00,$00,$38,$04,$3C,$44,$3C,$00 
DEFB $00,$20,$20,$3C,$22,$22,$3C,$00 
DEFB $00,$00,$1C,$20,$20,$20,$1C,$00 
DEFB $00,$04,$04,$3C,$44,$44,$3C,$00 
DEFB $00,$00,$38,$44,$78,$40,$3C,$00 
DEFB $00,$0C,$10,$18,$10,$10,$10,$00 
DEFB $00,$00,$3C,$44,$44,$3C,$04,$38 
DEFB $00,$40,$40,$78,$44,$44,$44,$00 
DEFB $00,$10,$00,$30,$10,$10,$38,$00 
DEFB $00,$04,$00,$04,$04,$04,$24,$18 
DEFB $00,$20,$28,$30,$30,$28,$24,$00 
DEFB $00,$10,$10,$10,$10,$10,$0C,$00 
DEFB $00,$00,$6C,$92,$92,$92,$92,$00 
DEFB $00,$00,$78,$44,$44,$44,$44,$00 
DEFB $00,$00,$38,$44,$44,$44,$38,$00 
DEFB $00,$00,$78,$44,$44,$78,$40,$40 
DEFB $00,$00,$3C,$44,$44,$3C,$04,$06 
DEFB $00,$00,$1C,$20,$20,$20,$20,$00 
DEFB $00,$00,$38,$40,$38,$04,$78,$00 
DEFB $00,$10,$38,$10,$10,$10,$0C,$00 
DEFB $00,$00,$44,$44,$44,$44,$38,$00 
DEFB $00,$00,$44,$44,$28,$28,$10,$00 
DEFB $00,$00,$92,$92,$92,$92,$6C, $00 
DEFB $00,$00,$44,$28,$10,$28,$44,$00 


H 
| 

J 
K 
L 
M 
N 
О 
P 
Q 
R 
S 
T 
U 
V 
W 
X 
Y 
Z 
[ 
\ 


] 
(up arrow) 


~ 


pound) 


хі<сеәзңаососсжяе- TA FTO OO O o° 


НОМЕ ВОМ 
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DEFB $00,$00,$44,$44,$44,$3C,$04,$38 
DEFB $00,$00,$7C,$08,$10,$20,$7C,$00 
DEFB $00,$0E,$08,$30,$08,$08,$0E,$00 1 

DEFB $00,$08,$08,$08,$08,$08,$08,$00 

DEFB $00,$70,$10,$0C,$10,$10,$70,$00 

DEFB $00,$14,$28,$00,$00,$00,$00,$00 

DEFB $3C,$42,$99,$A1,$A1,$99,$42,$3C (copyright) 


N x 
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EXROM 


Extension ROM 


In order to add new commands and extend the Timex/Sinclair 2068, Timex 
engineers and programmers moved some core routines to a second, 8K ROM. 


The Extension ROM (EXROM) is paged in/out using the same SCLD registers 
that make DOCK cartridges possible: the Display Enhancement Register ($FF) 
and the Horizontal Select Register ($F4). 


Timex added a dispatcher, a body of code that was copied to RAM at startup 
that provided a common programming interface to many commonly used 
routines. Timex provided the dispatcher to allow for future ROM upgrades. If all 
programmers used the dispatcher, their code would theoretically be future- 
proof. 


This ROM also contains routines to support the extra video modes Timex added 
to the TS 2068, routines for bank switching and other service routines. 
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XBASIC 


General routines used when the EXROM is switched in. 


XRSTO 
The very first bit of code handles the case where the computer started with the EXROM, 
instead of HOME ROM, enabled. We shouldn't end up here, but in case we do, handle 


the exception. 


М0000 


XRST8 


DI 
JR EXROM-STARTUP 


Disable interrupts. 
Jump to bank transfer code. 


This version of RST 8 handles any RST 8 that happens when EXROM is enabled, sending 
the event back to the HOME ROM through the dispatcher. 


М0008 


М001В 


М0020 


М0028 


LD HL,(CH_ADD) 

LD (X_PTR),HL 

POP HL 

LD L,(HL) 

LD (IY+OERRNR),L 

LD SP(ERRSP) 

LD HL, $1354 

PUSH HL 

LD H,$FF 

LD L,$00 

PUSH HL 

PUSH AF 

LD A,(VIDMOD) 

AND A 

NOP 

JR 2, XRST8-NORMVID 
POP AF 

CALL GOTO BANK-HI 


XRST8-NORMVID 
MOO2C POP AF 


CALL GOTO_BANK 


HL gets the address of the character in dispute. 
put it into the "syntax error" character pointer. 
The address on the stack points to the error 
code; get error code and put it into 

ERR_NR. 

Get the error stack pointer. 

Address of SET-STK. 


Address for home bank. 


Save AF. 
Check the video mode. 


Jump if normal video. 

Restore AF. 

Jump to RAM service when in extended 
video mode. 


Restore AF. 
Jump to RAM service when in normal video 
mode. 
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XRST38 
Interrupt routine. Called when the keyboard interrupt is received from the SCLD. 
M0038 PUSH AF Save AF and 

DI disable interrupts. 

LD A,(VIDMOD) Check the video mode. 

AND A 

NOP 

JR 2, KEYB-NORMVID Jump if only one display file active. 
KEYB-EXTVID 
M0041 POP AF Restore AF. 

JP MFA6E Jump to RAM INT service when in extended 


video mode (two display files). 


KEYB-NORMVID 
M0045 POP AF Restore AF. Jump to RAM INT service 
JP X38INT when in normal video mode. 


EXROM-STARTUP 
Code executed on power-up if the SCLD has reset to in such a state so as to point to 
EXROM. 


M0049 LD A,$01 Set HSR to point lower 8K to DOCK/ 
OUT (HSR),A EXROM. 
JR REBOOT 


MOVE-TO-$6000 

This section of code is transferred to HOME RAM by the REBOOT code fragment during 
a reset that starts with EXROM active. The short routine ensures that all chunks of the 
HOME ROM and RAM are active, sets DE to $FFFF and then jumps to the START/NEW 
routine in the HOME ROM. 


М004Ғ XORA Clear A. 
OUT (HSR),A Set HSR to selects all chunks to HOME/EXROM. 
OUT (DECR),A Bank select now transfers us to HOME. 
LD DE,$FFFF Bank $FFFF. 
JP START/NEW Routine in HOME ROM that initializes the 
computer. 
REBOOT 
MOO5A LD HL,$004F Starting address of bytes to transfer. 
LD DE,$6000 Where to transfer it. 
LD BC,$000B How many bytes to transfer. 
LDIR Copy the bytes. 
JP M6000 Jump to the routine and continue with 
initialization. 
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Cassette Handling Routines 


The vast majority of the cassette code in the ZX Spectrum was moved to the 
EXROM to make room for the cartridge routines and new BASIC commands. 


SA-BYTES Subroutine 


This subroutine is called to SAVE the header and later the program/data block. 


Writes the number of bytes specified іп DE from memory to tape. The ІХ register points 
to the first byte to save. This byte should БЕРЕ by the byte іп A which is used to 
о 


identify the type of block: $00 for data, $FF 


r header. 


This routine aborts with Report code D if the BREAK key is pressed. 
SA-BYTES (W_TAPE) 


M0068 


LD HL,$00E5 
PUSH HL 
LD HL,$1F80 


BIT 7,A 
JR Z, SA-FLAG 
LD HL,$0C98 


SA-LEADER 
Write the tape header. 


М007Е 


DJNZ SA-LEADER 
OUT ($FE),A 

XOR $0F 

LD B,$A4 

DECL 

JR NZ, SA-LEADER 


JP P, SA-LEADER 
LD B,$2F 


SA-SYNC-1 


М0090 


DJNZ SA-SYNC-1 
OUT ($FE), A 

LD A,$0D 

LD B,$37 


Address for SA/LD-RET is pushed 

as common exit route. 

Number of half-cycles for the header, 
approximately 5 seconds. 

Test bit 7, 

skip to SA-FLAG if a header is being saved. 
Set for the two-second gap after header. 


Save the the flags. 

Increase length by one. 

Decrease start. 

Don't interrupt the tape output. 

Start sound with 'O' and set border red 
(alternates with cyan). 


Delay loop for tone output. 

Output byte $02/$0D to tape port. 

Flip the border color and tape output signal. 
Hold count. Half-cycle time for 806.5Hz. 
jump if header not done. 


Adjust B for processing time. 
Jump back if header not done. 


First half-cycle of the 2400Hz transition. 
Self loop. 
Switch to mic on and red. 


Prep for mic off and cyan. 
A short delay. 
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SA-SYNC-2 

M0098 | DJNZ SA-SYNC-2 
OUT ($FE), A 
LD BC,$3BOE 


EX AF,AF' 


LD ЦА 
JP SA-START 


SA-LOOP 


Self loop. 

Output mic off, cyan border. 

B=half-cycle frequency for 2400Hz. Tape output 
high, border = YELLOW. 

Restore the saved flag, which is 1st byte to be 
saved. 

Transfer to L. 

Jump forward to SA-START. 


During the save loop a parity byte is maintained in H. The save loop begins by testing if 
reduced length is zero and if so, the final parity byte is saved reducing count to $FFFF. 


M00A4 LD A,D 
ORE 
JR 2, SA-PARITY 
LD L,(IX-- $00) 


SA-LOOP-P 
MOOAB ШАН 
XORL 


SA-START 
MOOAD LDH,A 


LD A, $01 
SCF 
JP SA-8-BITS 


SA-PARITY 
MOOBA LD L,H 
JR SA-LOOP-P 


SA-BIT-2 
MOOB7 LDA,C 
BIT 7,B 


SA-BIT-1 

MOOBA DJNZ SA-BIT-1 
JR NC, SA-OUT 
LD B,$42 


SA-SET 
MOOCO DJNZ SA-SET 
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Get the high byte. 

Test against low byte. 

Forward to SA-PARITY if zero. 

Load currently addressed byte in L. 


Get parity byte. 
XOR with next byte. 


Put parity byte back in H. 

Tape output low, border = blue 
Set carry flag ready to rotate in. 
Start sending the byte. 


Transfer running parity byte to L 
and back to SA-LOOP-P. 


Tape output high, border = YELLOW 
Set zero flag. This will indicate that the 2nd 
half-cycle has been sent. 


Wait a half-cycle. 
Jump forward if data bit is '0' 
Wait a bit longer for a ‘1’. 


Self loop, roughly 66*13 clock cycles. 


SA-OUT 

MOOC2 OUT ($FE),A 
LD B,$3E 
JR NZ,SA-BIT-2 
DEC B 
XOR A 
INCA 


SA-8-BITS 
MOOCB RLL 
JP NZ,SA-BIT-1 


JP NZ,SA-LOOP 
LD B,$3B 


SA-DELAY 


MOOE2  DJNZ SA-DELAY 
RET 


SA/LD-RET Subroutine 


EXROM 


Flip the bit. 

Set up delay. 

Jump if next half-cycle is still to be sent. 
B = $3D (make up for processing time). 
Zero A, clear carry flag and 

reset zero flag. 


Rotate left through carry. 

Jump back until all 8 bits are done. 
Decrement the byte count, 

point to the next byte to send. 
Half-cycle value for a 'O'. 

Test for space key and 

return to common exit (to restore border) 
return if space key press detected. 
Return to SA/LD-RET. 

Continue if more bytes are waiting 
to be written. 

Jump to SA-LOOP if more bytes. 
Wait for one last half-cycle. 


Self loop. 
And done. 


The address of this routine is pushed on the stack prior to any load/save operation and it 
handles normal completion with the restoration of the border and also abnormal 
termination when the break key (space key) is pressed during a tape operation. 


SA/LD-RET (W BORD) 
М00Е5 PUSH AF 
LD A,(BORDCR) 
AND $38 


JR C, SA/LD-END 


REPORT-D 
RST $08 
DEFB $0C 


Save AF. 

Get border color. 
Mask off PAPER bits. 
Rotate to 

get number in 0-7. 


Set the border color. 

Read from port address $7FFE, the row 
with space key at outside. 

Test for space key. 

Enable interrupts. 

Jump if space key was not pressed. 


Error: BREAK. 
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SA/LD-END 
MOOFA POP AF Restore AF. 
RET 


LD-BYTES Subroutine 


This routine is used to load bytes. On entry A is set to $00 for a header or to $FF for data. 
IX points to the start of receiving location and DE holds the length of bytes to be loaded. 
If carry flag is set on entry, data is loaded. If carry flag is reset, data is verified. 

Routine will abort with Report code D if the BREAK key is pressed. 


LD-BYTES (R_TAPE) 


MOOFC INC D Reset the zero flag without disturbing carry. 
EX AF,AF' Preserve the entry flags. 
DEC D Restore high byte of length. 
DI Disable interrupts. 
LD A,$0F Make the border white and mic off. 
OUT ($FE),A Output to port. 
LD HL,$00E5 Address of SA/LD-RET 
PUSH HL is saved on stack as terminating routine. 
IN A,($FE) Read the ear state (bit 6) 
RRA and rotate to bit 5. 
AND $20 Mask for the tape bit. 
OR $02 Combine with red color. 
LD C,A Store initial state long-term in C. 
CPA Set the zero flag. 
LD-BREAK 
M0111 RET NZ Return if at any time space is pressed. 
LD-START 
M0112 CALL LD-EDGE-1 Check for transition on the tape input 
JR NC, LD-BREAK Back to LD-BREAK with time out and 


no edge present on tape. 


Transition detected, try to read the tape. 


LD HL,$0415 Set up 16-bit outer loop counter for approx 1 
second delay. 
LD-WAIT 
МОЛЛА DJNZ LD-WAIT Self-loop. 
DEC HL Decrease outer loop counter. 
LD A,H Jump if HL is not zero. 
ORL 
JR NZ, LD-WAIT Back to LD-WAIT if not zero, with B=0. 
CALL LD-EDGE-2 Get a bit of data. 
JR NC,LD-BREAK Back to LD-BREAK if no edges at all. 
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LD-LEADER 


M0126 


LD B,$9C 
CALL LD-EDGE-2 
JR NC,LD-BREAK 


LD A,$C6 
CPB 
JR NC,LD-START 


INC H 
JR NZ,LD-LEADER 


LD-SYNC 


M0135 


LD B,$C9 

CALL LD-EDGE-1 
JR NC,LD-BREAK 
LD A,B 

CP $D4 

JR NC,LD-SYNC 
CALL LD-EDGE-1 
RET NC 

LDA,C 

XOR $03 

LD СА 

LD H,$00 

LD В,5В0 

JR LD-MARKER 


LD-LOOP 


МО14Ғ 


EX AF,AF' 
JR NZ,LD-FLAG 


JR NC,LD-VERIFY 
LD (IX+$00),L 
JR LD-NEXT 


LD-FLAG 


M0159 


RLC 


XOR L 
RET NZ 
LDA,C 
RRA 

LD СА 
INC DE 

JR LD-DEC 
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Set timing value. 
Get a bit of data. 
Back to LD-BREAK with time-out. 


Two edges must be spaced apart. 


Back to LD-START if too close together for 
lead-in. 

Proceed to test 256 edged sample. 

Back if not enough cycles detected. 


Initial timing value to B. 

Check again for the edge of a bit. 
Back to LD-BREAK with time-out. 
Get augmented timing value from B. 
Compare. 

Back to LD-SYNC if gap is too big. 
Check for the edge of a bit. 
Return with time-out. 

Get long-term mask from C 

and make it blue/yellow. 

Store new long-term mask. 

Set up parity byte to zero. 

Set timing value. 

Jump forward. 


Restore entry flags. 

Forward if awaiting initial flag, which is to be 
discarded. 

Forward if not loading. 

Save received byte at (IX). 


Preserve carry (verify) flag in long-term state byte. 
Ok to lose bit 7. 

Compare type in A with first byte in L. 

Return if no match (ie CODE vs DATA). 

Get byte with stored carry. 

Rotate to carry flag again. 

Restore long-term port state. 

Increment counter to compensate for its 
decrease after the jump. 
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LD-VERIFY 

M0163 LDA,(IX+$00) Get the last byte received. 
XORL Compare with that on tape. 
RET NZ Return if not a match. 

LD-NEXT 

M0168 INC IX Increment the byte pointer. 

LD-DEC 

MO16A DEC DE Decrement the block length. 
EX AF,AF' Store the flags. 
LD B,$B2 Set timing value. 

LD-MARKER 

MO16E LDL,$01 Initialize to %00000001. 

LD-8-BITS 

M0170 CALL LD-EDGE-2 Read a bit. 

RET NC Return with time-out. 

LD A,$CB Comparison value. 

СРВ Compare to incremented value іп В. If B is higher, 
then bit on tape was set. If lower, bit on tape was 
reset. 

RLL Rotate the carry bit in to L. 

LD B,$BO Reset B timer byte. 


JP NC,LD-8-BITS 


Jump back until carry is set. 


LD A,H Get the running parity byte. 
XOR L Include the new byte. 

LD H,A Store back in parity register. 
LD A,D Check length of 

ORE expected bytes. 


JR NZ,LD-LOOP 


Back while there are more bytes. 


LD A,H Get parity byte. 
CP $01 Set carry if zero. 
RET 


LD-EDGE-2 and LD-EDGE-1 Subroutines 


An edge is a transition from one mic state to another, which is registered as a change in 


bit 6 of value input from port $FE. 


The first entry point (LD-EDGE-2) looks for two adjacent edges (the length of a complete 
pulse). The second entry point (LD-EDGE-1) is used to find the time before the next 


edge. 


B holds a count, up to 256, within which the edge (or edges) must be found. The gap 


between two edges will be more for a '1' than a ‘0’, so the value of B denotes the state of 
the bit (two edges) read from tape. C contains the previous border color and 'edge-type'. 
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The subroutines return with the carry flag set if the required number of 'edges' has been 
found in the time allowed; and the change to the value in the B register shows just how 
long it took to find the 'edge(s)'. The carry flag will be reset if there is an error. 


The zero flag then signals 'BREAK pressed' by being reset, or 'time-up' by being set. 


LD-EDGE-2 (RD BIT) 
M0189 САШ LD-EDGE-1 
RET NC 


LD-EDGE-1 (R_EDGE) 


Find the tape tone. 
Return if space pressed to time-out. 


М0180 LDA,$16 Delay value. 
LD-DELAY 
MO18F DECA Decrement counter. 
JR NZ, LD-DELAY Loop back 22 times. 
AND A Reset carry flag. 
LD-SAMPLE 
M0193 INCB Increment the time-out counter. 
RET Z Return with failure when $FF passed. 
LD A,$7F Prepare to read keyboard and ear port. 
ІМ A,($FE) Read the keyboard and the tape input bit 
RRA (tape bit 6; space is bit 0), move bit 6 to 5. 
RET NC Return if space/BREAK was pressed. 
XOR C Compare with initial long-term state. 
AND $20 Isolate bit 5. 
JR Z, LD-SAMPLE Back to LD-SAMPLE if no edge. 
LD A,C Get comparison value. 
CPL Switch the bits. 
LD C,A Save it back. 
AND $07 Mask for the BORDER color. 
OR $08 Set the tape out bit to 0. 
OUT ($FE),A Output the new border color and tape bit 
SCF Set carry flag to signal edge found within 
time allowed. 
RET 


SAVE, LOAD, VERIFY & MERGE Command Routines 


Entry point for all four tape commands. The low TADDR byte distinguishes between the 
four commands. The first part of the following routine constructs the header information 


in the work space. 


Because these tape routines were originally in the HOME ROM, a method of replacing 
calls to other HOME ROM routines had to be substituted. The common code block sets 
up CALL-BANK, which invokes the routine in the HOME ROM. Here's the code block: 


PUSH IX Save the return address. 

EXX Switch to the alternate register set. 
LD HL, {ROUTINE} Push the address of {ROUTINE} to HL. 
PUSH HL Push it to the stack. 
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LD L, $00 

LD Н, HOMEROM 
PUSH HL 

LD HL,$0000 
PUSH HL 

PUSH HL 

EXX 

CALL CALL-BANK 
POP IX 


SAVE-ETC (SLVM) 
МО1АВ LDA, (TADDR) 


LD BC, P-SAVE+1 
SUB C 
LD (TADDR),A 


PUSH IX 
EXX 
LD HL, EXPT-EXP 
PUSH HL 

LD L, $00 

LD H, HOMEROM 
PUSH HL 

LD HL,$0000 
PUSH HL 

PUSH HL 

EXX 

CALL CALL-BANK 
POP IX 


BIT INTPT,(IY+OFLAGS) 


JR 2, SD-DATA 


LD BC,$0011 
LD A,(TADDR) 
AND A 

ЈК 2, SA-SPACE 


Horizontal select value for НОМЕ ВОМ. 
HOME ROM bank ($FF). 

Push that to the stack. 

And push 

PRM_IN and 

PRM_OUT. 

Switch back to regular register set. 

Call the routine in the HOME bank. 
Restore the return address. 


Get low byte of the syntax table pointer. 
Address of P-SAVE in the syntax table, 
generate a value based on the instruction. 
Put back in TADDR. 

$00 - SAVE 

$01 - LOAD 

$02 - VERIFY 

$03 - MERGE 


Get the file name. The string parameters will be on the top of the floating point stack. 
Evaluate the next expression and return here if it is a string. 


Save the return address. 

Switch to the alternate register set. 
Push the address of EXPT-EXP to HL. 
Push it to the stack. 

Horizontal select value for HOME ROM. 
HOME ROM bank (ФЕР). 

Push that to the stack. 

And push 

PRM_IN and 

PRM_OUT. 

Switch back to regular register set. 
Call the routine in the HOME bank. 
Restore the return address. 


Jump if syntax checking. 


Prepare to allocate a 17 byte header buffer if the value at TADDR is zero (SAVE). 


17 bytes. 

Jump if SAVE (only one buffer needed). 
And to itself, which results in $00 if SAVE. 
Jump ahead if SAVE. 


Otherwise, allocate two header buffers worth of memory. They are needed for LOAD, 
VERIFY, and MERGE. One buffer is for data coming from tape, the other for the 
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arguments coming from the command line. DE points to the start of the newly allocated 
memory. 


LD C,$22 


SA-SPACE 
Make the space for the buffer(s). 


MO1DD PUSH IX See the annotated example under SAVE-ETC. 
EXX 
LD HL,BC-SPACES Push address for BC-SPACES to stack. 
PUSH HL 
LD L,$00 
LD H, HOMEROM 
PUSH HL 
LD HL,$0000 
PUSH HL 
PUSH HL 
EXX 
CALL CALL-BANK 
POP IX 


Return here if the buffer(s) could be allocated. 


PUSH DE Copy the location of the header buffer 
POP IX to IX. 


Ten spaces are required for the default filename but it is simpler to overwrite the first file- 
type indicator byte as well. 


LD B,$0B Set counter to 11. 
LD A,'' And prepare a space. 
SA-BLANK 
МОЛЕВ LD (DE),A Set workspace location to space. 
INC DE Increment to next location. 
DJNZ SA-BLANK Loop back until all eleven are cleared. 
LD (IX+$01),$FF Set first byte of ten character filename to 


$FF to signal a null string. 


Check the name provided to the command, get the string descriptor from the calculator 
stack. 


PUSH IX See annotated example under SAVE-ETC. 
EXX 

LD HL,STK-FETCH 

PUSH HL 

LD L,$00 

LD H,HOMEROM 

PUSH HL 

LD HL,$0000 
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PUSH HL 

PUSH HL 

EXX 

CALL CALL-BANK 

POP IX 

LD HL, $FFF6 Test the length of the program name 
DEC BC (a length of zero will cause an overflow 
ADD HL,BC hence an error). 

INC BC Restore true length. 

JR NC, SA-NAME Jump forward if the name was less than 


11 characters. 


File name is more than 10 characters or null string. 


LD A,(TADDR) Get the command from TADDR. 
AND A Test if it is SAVE ($00). 
JR NZ, SA-NULL Jump forward if not SAVE. 
REPORT-F 
No more than 10 characters are allowed for SAVE. 
RST $08 Error: Invalid file name. 
DEFB $0E 
SA-NULL 
Continue with LOAD, MERGE, VERIFY and SAVE within 10 character limit. 
MO22A LDA,B Test if length of filename 
ORC is zero. 
JR Z, SA-DATA Jump forward if zero or null. 
LD BC,$000A Otherwise, trim length to 10. 
SA-NAME 
M0231 PUSH IX Save the header header buffer pointer 
POP HL and pop in to HL. 
INC HL HL now points to first byte of filename. 
EX DE,HL Transfer destination address to DE, start 
of string in command to HL. 
LDIR Copy up to 10 bytes, less than 10 if spaces 
follow. 
SA-DATA 
Call GETCURCH, skipping spaces and control characters. 
M0238 PUSH IX See annotated example under SAVE-ETC. 
EXX 
LD HL, GETCURCH 
PUSH HL 
LD L,$00 


LD H,HOMEROM 
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PUSH HL 

LD HL,$0000 
PUSH HL 

PUSH HL 

EXX 

CALL CALL-BANK 
POP IX 

CP $E4 

JP NZ, SA-SCR$ 
LD A,(TADDR) 
CP $03 

JP 2, BADBAS 


EXROM 


Is the character after filename the DATA token? 
No, jump forward to check for SCREEN$. 

Get command from TADDR. 

Is it MERGE? 

Declare a syntax error: can't MERGE DATA. 


Get the next character and then attempt to find it in the variables area. 


PUSH IX 
EXX 
LD HL,NEXT-CHAR 
PUSH HL 

LD L,$00 

LD H,HOMEROM 
PUSH HL 

LD HL,$0000 
PUSH HL 

PUSH HL 

EXX 

CALL CALL-BANK 
EXX 

LD HL,FIND_N 
PUSH HL 

LD L,$00 

LD H,HOMEROM 
PUSH HL 

LD HL,$0000 
PUSH HL 

PUSH HL 

EXX 

CALL CALL-BANK 
POP IX 

SET 7,C 

JR NC, SA-V-OLD 
LD HL,$0000 

LD A,(TADDR) 
DEC A 

JR Z,SA-V-NEW 


REPORT-2 
RST $08 
DEFB $01 


See annotated example under SAVE-ETC. 


Back-to-back HOME ROM call. 
Call FIND_N to look for the variable. 


Force an array name. 

Jump if we found the variable name. 
Signal ‘using a new array.’ 

Check value of TADDR and give 

error if trying to SAVE or VERIFY new array 
Otherwise, jump forward. 


Error: Variable not found. 
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SA-V-OLD (SLVBADBAS) 


M0295 


JP NZ,BADBAS 


BIT INTPT,(IY+OFLAGS) 


JR Z,SA-DATA-1 

INC HL 

LD A,(HL) 

LD (IX+BLKLEN),A 
INC HL 

LD A,(HL) 

LD (IX+BLKLEN+1),A 
INC HL 


SA-V-NEW 


МО2А9 


LD (IX+ARG1+1),C 
LD A,$01 

BIT 6,C 

JR Z,SA-V-TYPE 
INCA 


SA-V-TYPE 


MO2B3 


LD (IX+DATTYPE),A 


SA-DATA-1 


М02В6 
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EX DE,HL 
PUSH IX 
EXX 
LD HL, NEXT-CHAR 
PUSH HL 

LD L, $00 

LD H, HOMEROM 
PUSH HL 

LD HL,$0000 

PUSH HL 


CALL CALL-BANK 
POP IX 

CP) 

JR NZ, SA-V-OLD 


LD HL,NEXT-CHAR 
PUSH HL 

LD L,$00 

LD H,HOMEROM 
PUSH HL 

LD HL,$0000 
PUSH HL 


Variable found was not an array variable or а 
string. 
Jump forward if syntax checking. 


Point to the ‘low length’ of the variable. 
Low byte goes into 


workspace, followed by 
the high byte. 


Step past length bytes. 


Copy the array's name. 
Assume an array of numbers. 
Jump if true. 


Nope, array of characters. 


Save the type in the first location of header area. 


Save the pointer to DE. 
See annotated example under SAVE-ETC. 


Get the next character. 


Is it a close parenthesis? 
Report C if not. 
See annotated example under SAVE-ETC. 


Get the next character. 


PUSH HL 

EXX 

CALL CALL-BANK 

POP IX 

BIT INTPT,(IY+OFLAGS) 
RET Z 

EX DE,HL 

JP SA-ALL 


SA-SCR$ 


МО2Е2 


CP $AA 

JR NZ,SA-CODE 
LD A,(TADDR) 

CP $03 

JP Z, BADBAS 
PUSH IX 

EXX 

LD HL,NEXT-CHAR 
PUSH HL 

LD L,$00 

LD H,HOMEROM 
PUSH HL 

LD HL,$0000 

PUSH HL 

PUSH HL 

EXX 

CALL CALL-BANK 
POP IX 

BIT INTPT,(IY+OFLAGS) 
RET Z 

LD (IX+BLKLEN),00 
LD (IX+BLKLEN+1),$1B 
LD HL,$4000 

LD (IX+ARG1),L 

LD (IX+ARG1+1),H 
JP SA-TYPE-3 


SA-CODE 


МОЗ2Е 


СР ФАҒ 

JP NZ, SA-LINE 
LD A,(TADDR) 
CP $03 

JP 2, BADBAS 
PUSH IX 

EXX 

LD HL,NEXT-CHAR 
PUSH HL 

LD L,$00 

LD H,HOMEROM 


EXROM 


Return if syntax checking. 


Save pointer to DE. 


Is the current code the SCREEN$ token? 
Jump forward if not. 

Is user trying to MERGE with SCREEN$? 
Can't MERGE SCREEN$ data. 

Report a syntax error if ttrue. 

See annotated example under SAVE-ETC. 


Get the next character. 


Return if syntax checking. 
Load screen length into buffer 


Screen address. 


Check if the current code is CODE token. 
Nope, jump ahead. 

Make sure user is not trying to 

MERGE with CODE. 

Report syntax error if true. 

See annotated example under SAVE-ETC. 


Get next character. 
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PUSH HL 

LD HL,$0000 
PUSH HL 

PUSH HL 

EXX 

CALL CALL-BANK 
EXX 

LD HL, PR-ST-END 
PUSH HL 

LD L,$00 

LD H,HOMEROM 
PUSH HL 

LD HL,$0000 
PUSH HL 


CALL CALL-BANK 
POP IX 

JR NZ, SA-CODE-1 
LD A,(TADDR) 
AND A 

JP 2, BADBAS 
PUSH IX 

EXX 
LD HL, USE-ZERO 
PUSH HL 

LD L,$00 

LD H, HOMEROM 
PUSH HL 

LD HL,$0000 
PUSH HL 

PUSH HL 

EXX 

CALL CALL-BANK 
POP IX 

JR SA-CODE2 


SA-CODE-1 
Look for a starting address. 


M0387 
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PUSH IX 
EXX 
LD HL,EXPT-1NUM 
PUSH HL 

LD L,$00 

LD H,HOMEROM 
PUSH HL 

LD HL,$0000 
PUSH HL 


Back-to-back calls to HOME ROM. 
Check for end of line (newline) 


Jump if not the end of a statement. 

Make sure user is not trying to SAVE name 
CODE by itself (missing location). 

Report syntax error if user made this mistake. 
See annotated example under SAVE-ETC. 


Put a zero on the calculator stack for the 
start location. 


Continue forward. 


See annotated example under SAVE-ETC. 


Get the first number. 


PUSH HL 

EXX 

CALL CALL-BANK 
EXX 

LD HL, GETCURCH 
PUSH HL 

LD L,$00 

LD H, HOMEROM 
PUSH HL 

LD HL,$0000 
PUSH HL 

PUSH HL 

EXX 

CALL CALL-BANK 


LD A,(TADDR) 
AND A 
JP 2, BADBAS 


SA-CODE-2 
MO3BC PUSH IX 


EXX 
LD HL, USE-ZERO 
PUSH HL 

LD L,$00 

LD H, HOMEROM 
PUSH HL 

LD HL,$0000 
PUSH HL 


CALL CALL-BANK 
POP IX 
JR SA-CODE-4 


SA-CODE-3 
MO3D5 PUSH IX 


EXX 
LD HL,NEXT-CHAR 
PUSH HL 

LD L,$00 

LD H,HOMEROM 
PUSH HL 

LD HL,$0000 
PUSH HL 

PUSH HL 

EXX 


EXROM 


Back-to-back calls to HOME ROM. 
Get the next character after the number. 


Is the current character a comma? 

Yes, continue forward. 

Check if user is trying to SAVE 

with only address; no length. 

Report syntax error if there's no length. 


See annotated example under SAVE-ETC. 


Put a zero on the calculator stack for 
length. 


Jump forward. 


See annotated example under SAVE-ETC. 


Move CH. ADD forward. 
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CALL CALL-BANK 
EXX 

LD HL,EXPT-1NUM 
PUSH HL 

LD L,$00 

LD H,HOMEROM 
PUSH HL 

LD HL,$0000 
PUSH HL 

PUSH HL 

EXX 

CALL CALL-BANK 
POP IX 


SA-CODE-4 


MO3FF 
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BIT INTPT,(IY+OFLAGS) 


RET Z 
PUSH IX 
EXX 
LD HL,FIND-INT2 
PUSH HL 

LD L,$00 

LD H,HOMEROM 
PUSH HL 

LD HL,$0000 
PUSH HL 

PUSH HL 

EXX 

CALL CALL-BANK 
POP IX 

LD (IX+BLKLEN),C 
LD (IX+BLKLEN+1),B 
PUSH IX 

EXX 

LD HL,FIND-INT2 
PUSH HL 

LD L,$00 

LD H,HOMEROM 
PUSH HL 

LD HL,$0000 
PUSH HL 

PUSH HL 

EXX 

CALL CALL-BANK 
POP IX 

LD (IX+ARG1),C 
LD (IX+ARG1+1),B 
LD H,B 

LDL,C 


CALL BANK 
Back-to-back calls to HOME ROM. 
And get the value for length. 


Return if syntax checking. 
See annotated example under SAVE-ETC. 


Compress length into the BC register. 


Put the length of the code segment 
into the buffer. 
See annotated example under SAVE-ETC. 


Compress starting address into BC. 


Put the starting address of the code 
segment into the buffer. 
Put the code address into HL. 


SA-TYPE-3 


SCREEN$ and CODE are both type 3. 


M0440 


SA-LINE 


Get the line number that follows LINE. 


M0447 


LD (IX+DATTYPE),03 


JP SA-ALL 


CP $CA 
JR Z,SA-LINE-1 


BIT INTPT,(IY+OFLAGS) 


RET Z 


LD (IX+ARG1+1),$80 


JR SA-TYPE-0 


SA-LINE-1 


М0456 


LD A,(TADDR) 
AND A 

JP NZ,BADBAS 
PUSH IX 

EXX 

LD HL,NEXT-CHAR 


LD Н,НОМЕКОМ 
PUSH HL 

LD HL,$0000 
PUSH HL 


CALL CALL-BANK 
EXX 

LD HL,EXPT-1NUM 
PUSH HL 

LD L,$00 

LD H,HOMEROM 
PUSH HL 

LD HL,$0000 
PUSH HL 


CALL CALL-BANK 
POP IX 


BIT INTPT,(IY+OFLAGS) 


RET Z 

PUSH IX 

EXX 

LD HL,FIND-INT2 
PUSH HL 


EXROM 


Put the file type (BINARY) into the buffer. 
Jump forward. 


Is the current code the LINE token? 
Yes, jump forward. 
Return if syntax checking. 


No further parameters, put in end code. 


Make sure the user has the syntax 
correct: SAVE name LINE number. 

No? Issue a syntax error. 

See annotated example under SAVE-ETC. 


Advance CH_ADD. 


Get the number. 


Return if syntax checking. 
See annotated example under SAVE-ETC. 


Compress the line number to BC. 
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LD L,$00 

LD H,HOMEROM 
PUSH HL 

LD HL,$0000 
PUSH HL 

PUSH HL 

EXX 

CALL CALL-BANK 
POP IX 

LD (IX+ARG1),C Put the line number into the buffer. 
LD (IX+ARG1+1),B 


5А-ТҮРЕ-0 
Find and store parameters that describe the program and its variables іп the header area 
of the work space. 


M04A9 10 (IX+$00),00 Put file type into the buffer. 
LD HL,(ELINE) Pointer to the end of the variables area. 
LD DE,(PROG) Compute the length of the program 
SCF and variables to the $80 byte 
SBC HL,DE just after the variables. 
LD (IX+BLKLEN),L Store block length in the 
LD (IX--BLKLEN- 1), H buffer. 
LD HL,(VARS) Compute the variables area length 
SBC HL,DE 
LD (IX+ARG2),L Store length of the variables area 
LD (IX+ARG2+1),H to the buffer. 
EX DE,HL Transfer point to HL. 


In all cases, the header information is prepared: 

* The location 'IX+00' holds the type number. 

e Locations ЧХ+01 to IX+0A' holds the name («FF in 'IX+01' if null). 

* Locations 'IX+0B & IX+0C' hold the number of bytes that are to be found in the ‘data 
block'. 

e Locations 'IX+0D to IX+10' hold a variety of parameters whose exact interpretation 
depends on the їуре'. 


The routine continues, separating SAVE from LOAD, VERIFY and MERGE. 


SA-ALL 

М04С9 LD A,TADDR) Jump forward 
ANDA if this is a SAVE. 
JP Z,SA-CONTRL 


For LOAD, VERIFY or MERGE commands, the first seventeen bytes of the header area 
hold the prepared information, as detailed above; and it is now time to fetch a 'header 
from the tape. 


PUSH HL Save the destination pointer. 
LD BC,$0011 Point to the buffer used to store 
ADD IX,BC the header coming in from the tape. 
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LD-LOOK-H 
М0406 PUSH ІХ Make а copy of the base address. 
LD DE,$0011 Load 17 bytes. 
XOR A Signal ‘header’. 
SCF Signal ‘LOAD’. 
CALL LD-BYTES Look for a header. 
POP IX Restore the base address. 
JR NC,LD-LOOK-H Loop until successful. 
LD A,$FE Ensure channel '5' is open. 
PUSH IX See annotated example under SAVE-ETC. 
EXX 


LD HL,CHAN-OPEN 
PUSH HL 

LD L,$00 

LD H,HOMEROM 
PUSH HL 

LD HL,$0000 

PUSH HL 

PUSH HL 

EXX 

CALL CALL-BANK 
POP IX 

LD (ІҮ--%52),03 

LD C,$80 

LD A,(IX+DATTYPE) 
CP (IX+(-$11)) 

JR NZ,LD-TYPE 

LD C,$F6 


LD-TYPE 
М0500 CP $04 


JR NC,LD-LOOK-H 
LD DE,$3CA8 
PUSH BC 


LD HL,PO-MSG 
PUSH HL 

LD L,$00 

LD H,HOMEROM 
PUSH HL 

LD HL,$0000 
PUSH HL 

PUSH HL 

EXX 

CALL CALL-BANK 
POP IX 

POP BC 


Open the channel. 


Set the scroll counter to 3. 

Signal ‘names do not match’. 

Compare the new type 

against the old type. 

Jump if they do not match. 

If they do, signal that ten characters need 
to match. 


If the header type =>4 it's not a 
TS file type, so loop back. 

Base address of message block. 
Briefly save C. 


See annotated example under SAVE-ETC. 


Print the appropriate message. Message 
number is in A. 


Restore BC. 
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PUSH IX 
POP DE 

LD HL,-16 
ADD HL,DE 
LD B,$0A 
LD A,(HL) 
INCA 

JR NZ,LD-NAME 
LDA,C 
ADD A,B 
LD СА 


LD-NAME 


MO53D 


INC DE 

LD A,(DE) 

CP (HL) 

INC HL 

JR NZ,LD-CH-PR 
INC C 


LD-CH-PR 


M0544 
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PUSH IX 
EXX 
LD HL,WRCH 
PUSH HL 

LD L,$00 

LD H,HOMEROM 
PUSH HL 

LD HL,$0000 
PUSH HL 

PUSH HL 

EXX 

CALL CALL-BANK 
POP IX 

DJNZ LD-NAME 
BIT 7,C 

JP NZ,LD-LOOK-H 
LD A,$0D 

PUSH IX 

EXX 
LD HL,WRCH 
PUSH HL 

LD L,$00 

LD H,HOMEROM 
PUSH HL 

LD HL,$0000 
PUSH HL 

PUSH HL 

EXX 


Make DE 
ppoint to new type and 
HL point to old name. 


Name length counter (10 chars). 
Get the first letter of the file name. 
Jump if a name was given. 

Load a with the length of the name. 


Add to the max length of a name. 
Save the length of the name. 


Get a character from the buffer. 
Compare it to the received name. 


Jump if it does not match. 
If it does match, increment the match counter. 


See annotated example under SAVE-ETC. 


Print the new character. 


Loop back for 10 characters. 

If the names matched, C will have rolled 
over. 

Print a newline. 

See annotated example under SAVE-ETC. 


Print the newline. 


VERIFY Control Routine 


CALL CALL-BANK 
POP IX 

POP HL 

LD A,(IX+DATTYPE) 
CP $03 

JR Z,VR-CONTRL 
LD A,(TADDR) 
DECA 

JP Z, LD-CONTRL 
CP $02 

JP Z, ME-CONTRL 
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Get the pointer. 
SCREEN$ and CODE are handled by 
VERIFY. 


Jump forward if the command is 
LOAD. 


Jump if using MERGE, otherwise 
continue in VERIFY. 


Verification LOADs a block of data, a byte at a time, and checks but does not store the 
bytes. This routine also LOADs blocks of data that have been described with SCREEN$ 
and CODE. 


VR-CONTRL 


М058Ғ 


PUSH HL 

LD L,(IX+(-$06)) 
LD H,(IX+(-$05)) 
LD E,(IX+BLKLEN) 


LD D,(IX+BLKLEN +1) 


LD A,H 

ORL 

JR Z,VR-CONT-1 
SBC HL,DE 

JR C,REPORT-R 

JR Z, VR-CONT-1 
LD A,(IX+DATTYPE) 
CP $03 

JR NZ,REPORT-R 


VR-CONT-1 
MOSAD POP HL 


LD A,H 

ORL 

JR NZ,VR-CONT-2 
LD L,(IX+ARG1) 
LD H,(IX+ARG1+1) 


VR-CONT-2 


МО5В8 


PUSH HL 
POP IX 

LD A,(TADDR) 

CP $02 

SCF 

JR NZ,VR-CONT-3 
AND A 


Save the pointer. 

Get the number of bytes as described 

in the old header. 

Get the number number from the new 
header. 

Jump forward if length is not specified. 


Report R if attempting to load a block 
larger than requested. 

Blocks are of equal length.. 

Report R if trying to verify blocks of 
unequal size (old length > new length). 


Get the pointer (start). 
This pointer will be used unless it is zero. 


Use new header instead. 


Move the pointer to IX. 
Jump forward unless using 
VERIFY with carry flag set 
to signal LOAD. 


Signal VERIFY. 
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VR-CONT-3 
MOSCA LD A,$FF Signal ‘accept data block only’ before loading 
block. 


LOAD A DATA BLOCK Subroutine 


This subroutine is common to all the LOAD routines. In the case of LOAD and VERIFY, it 
acts as a full return from the cassette handling routines but in the case of MERGE the 
data block has yet to be 'MERGEd'. 


LD-BLOCK (R_TAPE1) 


М05С6 САШ LD-BYTES LOAD/VERIFY a data block. 
RET C Return unless there's an error. 

REPORT-R 

MOSCA RST $08 Error: Tape loading error. 
DEFB $1A 


LOAD Control Routine 


This routine controls the LOADing of a BASIC program and its variables or an array. 


LD-CONTRL (LOAD) 


МО5СС LD E,(IX+BLKLEN) Get the number of bytes 
LD D,(IX+BLKLEN+1) as given in the new header. 
PUSH HL Save the destination pointer. 
LD A,H Jump forward unless tying to 
ORL LOAD a previously undeclared array. 
JR NZ,LD-CONT-1 
INC DE Add three bytes to the length: for the 
INC DE name, low length and 
INC DE high length. 
EX DE,HL 
JR LD-CONT-2 
LD-CONT-1 
Check if there is enough room for the new data block. 
M05DD LD L,(IX+(-$06)) Get the size of the existing 
LD H,(IX+(-$05)) program+variables or array. 
EX DE,HL 
SCF Jump if the existing data block 
SBC HL,DE is at least long enough to hold 
JR C, LD-DATA the new data. 
LD-CONT-2 
Test for room for data block. 
MOSE9 LD DE,$0005 Add 5 bytes to the block length. 
ADD HL,DE BC = number of additional bytes needed 
LD B,H for this data block. 
LD C,L 
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PUSH IX 
EXX 
LD HL,TEST-ROOM 
PUSH HL 

LD L,$00 

LD H,HOMEROM 
PUSH HL 

LD HL,$0000 

PUSH HL 

PUSH HL 

EXX 

CALL CALL-BANK 
POP IX 


LD-DATA 
Handle LOADing arrays. 


M0606 POP HL 
LD A,(IX+DATTYPE) 
AND A 
JR Z, LD-PROG 
LD A,H 
ORL 
JR Z, LD-DATA-1 
DECHL 
LD B,(HL) 
DECHL 
LD C,(HL) 
DEC HL 
INC BC 
INC BC 
INC BC 
LD (X. PTR),IX 
PUSH IX 
EXX 
LD HL, RECLAIM-2 
PUSH HL 
LD L,$00 
LD H,HOMEROM 
PUSH HL 
LD HL,$0000 
PUSH HL 
PUSH HL 
EXX 
CALL CALL-BANK 
POP IX 
LD IX,(X PTR) 


EXROM 


See annotated example under SAVE-ETC. 


Check to see if BC spaces are available. 


Restore the existing data block length. 
Jump forward 
if this is a program. 


Jump if block length is zero 
to create the variable. 


Get the size of exiting array 

from the length bytes in variables area. 
Put the array size into BC. 

Point to its old name. 

Add the length of the array name 

and array length bytes. 


Save IX temporarily. 
See annotated example under SAVE-ETC. 


Delete the old array. 


Restore IX. 
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LD-DATA-1 


M0638 


LD HL,(ELINE) 
DEC HL 

LD C,(IX+BLKLEN) 
LD B,(IX+BLKLEN +1) 
PUSH BC 

INC BC 

INC BC 

INC BC 

LD A,(IX+(-$03)) 
PUSH AF 

PUSH IX 

EXX 
LD HL,MAKE-ROOM 
PUSH HL 

LD L,$00 

LD H,HOMEROM 
PUSH HL 

LD HL,$0000 
PUSH HL 

PUSH HL 

EXX 

CALL CALL-BANK 
POP IX 

INC HL 

POP AF 

LD (HL),A 

POP DE 

INC HL 

LD (HL),E 

INC HL 

LD (HL),D 

INC HL 

PUSH HL 

POP IX 

SCF 

LD A,SFF 

JP LD-BLOCK 


LD-PROG 
Load a BASIC program and its variables. 


M0673 
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EX DE,HL 

LD HL,(ELINE) 

DEC HL 

LD (X. PTR),IX 

LD C,(IX+BLKLEN) 
LD B,(IX+BLKLEN +1) 
PUSH BC 


Find pointer to end marker of 
variables area ($80). 
Get the length of new array. 


Save the length. 

Add three more bytes 

for the array name and 

length. 

Get the array ID for the incoming data. 
Save it to make room at (HL) for the array, 
See annotated example under SAVE-ETC. 


Create the space. 


Store the array name. 
Enter name. 

Get length and save its 
two bytes. 


Point to first location to fill with data from 
tape. Move the location to IX. 


"load..." 
"...а data block" 
Read the data block and exit via SLVM. 


Save destination pointer. 

Point to the $80 byte at the end of the 
variables area. 

Save IX temporarily. 

Get the data block length and briefly save 
it. 


PUSH IX 
EXX 
LD HL,RECLAIM-1 
PUSH HL 

LD L,$00 

LD H, HOMEROM 
PUSH HL 

LD HL, $0000 
PUSH HL 


LD HL,MAKE-ROOM 
PUSH HL 

LD L,$00 

LD H, HOMEROM 
PUSH HL 

LD HL,$0000 

PUSH HL 


CALL CALL-BANK 
POP IX 

LD IX,(X PTR) 

INC HL 

LD C,(IX+ARG2) 
LD B,(IX+ARG2+1) 
ADD HL,BC 

LD (VARS),HL 

LD H,(IX+ARG1+1) 
LD A,H 

AND $CO 

JR NZ, LD-PROG-1 
LD L,(IX+ARG1) 
LD (NEWPPC),HL 
LD (IY+ONSPPC),00 


LD-PROG-1 
MO6D5 POP DE 


POP IX 

SCF 

LD A,SFF 

LD HL,(PROG) 


EXROM 


See annotated example under SAVE-ETC. 


Reclaim area occupied by present program 
and its variables. 


Pop the block length. 

Push the data buffer address. 

Push the block length. 

See annotated example under SAVE-ETC. 


Make room for the new program. 


Get the buffer header pointer back. 
Get the original address back. 
Get the variables address from the file. 


Point to the new variables area 
and save it in the system vars area. 
Pet the putative line number. 


Jump if no line number 


Get the lower byte of the line number 
store the line number into the next line 
number and set sub-line to 0. 


Restore the block length. 

Restore the start. 

"load..." 

"...а data block" 

Get the address of the program text 
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MERGE Control Routine 


DEC HL 
LD (DATADD),HL 
JP LD-BLOCK 


point to the $80 byte. 
data terminator character (no data). 
Read the tape. 


There are three main parts to this routine. 

1. LOAD the data block into the work space. 

2. MERGE the lines of the new program into the old program. 

3. MERGE the new variables into the old variables. Start therefore with the LOADing of 
the data block. 


ME-CONTRL (MERGE) 


MO6E5 


LD C,(IX+BLKLEN) 


LD B,(IX+BLKLEN +1) 


LD Н,НОМЕКОМ 
PUSH HL 

LD HL,$0000 
PUSH HL 


CALL CALL-BANK 
POP IX 

LD (HL),$80 

EX DE,HL 

POP DE 

PUSH HL 

PUSH HL 

POP IX 

SCF 

LD A,SFF 

CALL LD-BLOCK 
POP HL 

LD DE,(PROG) 


ME-NEW-LP 


M0717 
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LD A,(HL) 
AND $CO 
JR NZ,ME-VAR-LP 


Get the data block length. 


Save the block length 
with room for the $80 byte 
See annotated example under SAVE-ETC. 


Make length+1 spaces available in work 
space. 


$80 byte for the end of the edit buffer. 
Move start pointer to HL. 

Pop the original length. 

Save the pointer to the end of the 
reserved area ...and again 

Put pointer to the end of the reserved area 
in IX."load..." 

"...а data block" 

Read the program lines in from tape. 
Point to the newly loaded data. 

Set DE to start of old program. 


Get a line number and test it. 


Jump when finished with all lines. 


ME-OLD-LP 
М071С LD A,(DE) 


INC DE 

CP (HL) 

INC HL 

JR NZ,ME-OLD-L1 
LD A,(DE) 

CP (HL) 


ME-OLD-L1 


M0724 


DEC DE 
DEC HL 
JR NC,ME-NEW-L2 


PUSH HL 
EX DE,HL 
PUSH IX 
EXX 
LD HL,NEXT-ONE 
PUSH HL 

LD L,$00 

LD H,HOMEROM 
PUSH HL 

LD HL,$0000 
PUSH HL 

PUSH HL 

EXX 

CALL CALL-BANK 
POP IX 

POP HL 

JR ME-OLD-LP 


ME-NEW-L2 


M0744 


CALL ME-ENTER 
JR ME-NEW-LP 


ME-VAR-LP 


M0749 


LD A,(HL) 

LD C,A 

CP $80 

RET Z 

PUSH HL 

LD HL,(VARS) 


EXROM 


Get the high line number byte 

and 

compare to the new BASIC. 

Bump the new pointer. 

Old and new line numbers don’t match, so 
jump. Compare the low line number bytes. 


Bump both BASIC pointers back 


Jump if the new line number is less than or equal 
to the old line number to insert the new line into 
the program. 

Save the new pointer. 

HL=old pointer, DE=the new pointer 

See annotated example under SAVE-ETC. 


Find the next variable or BASIC line. 


Restore the new pointer. 
Back around to test the new line. 


Enter the new line and go 
back around the loop. 


Get each variable name in turn and test. 


Return when all variables have been 
evaluated. 

Save the current new pointer. 

Get the pointer to the variables area 
(old program). 
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ME-OLD-VP 

M0752 АДН) 
CP $80 
JR Z,ME-VAR-L2 
CPC 


JR Z, ME-OLD-V2 


ME-OLD-V1 

M0O75A PUSH BC 
PUSH IX 
EXX 
LD HL,NEXT-ONE 


LD HHOMEROM 
PUSH HL 

LD HL,$0000 
PUSH HL 


CALL CALL-BANK 
POP IX 

POP BC 

EX DE,HL 

JR ME-OLD-VP 


ME-OLD-V2 
M0776 AND $EO 
CP $A0 
JR NZ,ME-VAR-L1 
POP DE 
PUSH DE 
PUSH HL 


ME-OLD-V3 
MO77F INC HL 
INC DE 
LD A,(DE) 
CP (HL) 
JR NZ,ME-OLD-V4 
RLA 
JR NC, ME-OLD-V3 
POP HL 
JR ME-VAR-L1 


ME-OLD-V4 


М078В POP HL 
JR ME-OLD-V1 
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Get each variable name and test. 


Jump if there are no more variables. 
Compare the 0 byte of each name. 


Jump forward on match to compare the rest of 


the names. 


Save new variable’s name. 
See annotated example under SAVE-ETC. 


Find the old variable. 


Restore new variable’s name. 
Restore pointer to DE and 
go around the loop again. 


Compare bits 5, 6 and 7 only. 

Accept all variable types except 

long named variables. 

Make DE pointer to the first character 
of the new name. 

Save the pointer to the old name. 


Update both old and 
new pointers. 
Compare the two letters. 


Jump if the variable names do not match. 
Loop back around if not the last character. 


Restore the pointer to start of old name 
and jump forward bc successful match. 


Get pointer and jump back: 
unsuccessful match. 
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ME-VAR-L1 
М078Е LDA,$FF Signal ‘replace’ variable. 
ME-VAR-L2 
M0790 POP DE Get pointer to new name. 
EX DE,HL Swap the pointers. 
INCA Set zero flag if replacement; reset for 
addition. 
SCF Signal ‘handling variables.’ 
CALL ME-ENTER Make the entry. 
JR ME-VAR-LP Loop back to consider next new variable. 


Merge A Line Or A Variable Subroutine 

This subroutine is entered with the following parameters: 

* Carry flag reset - MERGE a BASIC line; set - MERGE a variable. 
° Zero reset - It will be an ‘addition’; set - It is a ‘replacement’. 

* HL - Points to the start of the new entry. 

* DE - Points to where it is to MERGE. 


ME-ENTER 
М0799 JR NZ,ME-ENT-1 Jump if handling an ‘addition’. 
EX AF,AF' Save the flags. 
LD (X_PTR),HL Save new pointer wile old line 
EX DE,HL or variable is reclaimed. 
PUSH IX See annotated example under SAVE-ETC. 
EXX 
LD HL,NEXT-ONE Find the next line or variable and delete it. 
PUSH HL 
LD L,$00 
LD H,HOMEROM 
PUSH HL 
LD HL,$0000 
PUSH HL 
PUSH HL 
EXX 
CALL CALL-BANK 
EXX 
LD HL,RECLAIM-2 
PUSH HL 
LD L,$00 
LD H,HOMEROM 
PUSH HL 
LD HL,$0000 
PUSH HL 
PUSH HL 
EXX 
CALL CALL-BANK 
POP IX 
EX DE,HL 
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LD HL,(X_PTR) 
EX AF,AF' 


ME-ENT-1 
MO7CF EXAEAF' 


PUSH DE 
PUSH IX 
EXX 
LD HL,NEXT-ONE 
PUSH HL 

LD L,$00 

LD H,HOMEROM 
PUSH HL 

LD HL,$0000 
PUSH HL 

PUSH HL 

EXX 

CALL CALL-BANK 
POP IX 

LD (X_PTR),HL 

LD HL,(PROG) 

EX (SP),HL 

PUSH BC 

EX AF,AF' 

JR C,ME-ENT-2 
DEC HL 

PUSH IX 

EXX 
LD HL,MAKE-ROOM 
PUSH HL 

LD L,$00 

LD H,HOMEROM 
PUSH HL 

LD HL,$0000 

PUSH HL 

PUSH HL 

EXX 

CALL CALL-BANK 
POP IX 

INC HL 

JR ME-ENT-3 


ME-ENT-2 


MO80E 
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PUSH IX 

EXX 

LD НЦМАКЕ-КООМ 
PUSH HL 

LD L,$00 

LD H,HOMEROM 


Restore the flags. 


Save the flags. 
Save the pointer to destination. 
See annotated example under SAVE-ETC. 


Find the length of new next variable 
or program line. 


Save pointer to new variable/line. 

Get the pointer to the BASIC program. 

Save PROG on stack and get new pointer. 

Save the length. 

Retrieve the flags. 

Jump forward if adding new variable. 

A new line is added before destination location. 
See annotated example under SAVE-ETC. 


Make room for the new line. 


Jump forward. 


See annotated example under SAVE-ETC. 


Make room for new variable. 


PUSH HL 
LD HL,$0000 
PUSH HL 

PUSH HL 

EXX 

CALL CALL-BANK 
POP IX 


ME-ENT-3 

M0825 INC HL 
POP BC 
POP DE 


SAVE Control Routine 


LD (PROG),DE 
LD DE,(X_PTR) 
PUSH BC 
PUSH DE 

EX DE,HL 
LDIR 


LD HL,RECLAIM-2 
PUSH HL 

LD L,$00 

LD H,HOMEROM 
PUSH HL 

LD HL,$0000 
PUSH HL 


CALL CALL-BANK 
POP IX 

POP DE 

RET 


EXROM 


Point to the 1st new location. 
Retrieve the length. 

Retrieve PROG and 

store it in its correct place. 
Also fetch the new pointer. 
Save the length and 

the new pointer. 

Switch pointers and 

copy the new variable/line into 
the room made for it. 

Get the new pointer. 

Get the length. 

Save the old pointer. 

See annotated example under SAVE-ETC. 


Remove the variable/line from the work 
space. 


Return with the old pointer 
in DE. 


SAVing a program or a block of data is very straightforward. 


SA-CONTRL (SAVE) 


M0851 


PUSH HL 

LD A,$FD 

PUSH IX 

EXX 

LD HL,CHAN-OPEN 
PUSH HL 

LD L,$00 


Save the data buffer address. 
Ensure that channel ‘?K’ is open. 
See annotated example under SAVE-ETC. 


Open the channel. 
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LD H,HOMEROM 
PUSH HL 

LD HL,$0000 
PUSH HL 

PUSH HL 

EXX 

CALL CALL-BANK 
POP IX 

XOR A 

LD DE,$3C89 
PUSH IX 

EXX 
LD HL,PO-MSG 

PUSH HL 

LD L,$00 

LD H,HOMEROM 

PUSH HL 

LD HL,$0000 

PUSH HL 

PUSH HL 

EXX 

CALL CALL-BANK 

POP IX 

SET CLHS,(IY+OTVFLAG) 
CALL AKEY 

PUSH IX 

LD DE,$0011 

XOR A 

CALL SA-BYTES 

POP IX 

LD B,$32 


SA-1-SEC 
М089А HALT 


DJNZ SA-1-1SEC 

LD E,(IX+BLKLEN) 
LD D,(IX+BLKLEN +1) 
LD A,SFF 

POP IX 

JP SA-BYTES 


AKEY Subroutine 


Signal ‘first message’. 
Print the message ‘Start Tape’. 
See annotated example under SAVE-ETC. 


Put message 0 to current channel. 


Signal ‘screen must be cleared.’ 
Wait user to press a key. 

Save the header buffer address. 
Set tape header length. 

Signal ‘header’. 

Send the header. 

Restore the header buffer address. 
Set delay for almost a second. 


Wait for approximately 1000 ms. 


Get the length of the data block from the 
header. 

Signal ‘data block.’ 

Get start of block pointer and 

save the block. 


Used just to wait for a key press in preparing to SAVE. 


AKEY 


MO8AA PUSH AF 
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PUSH BC 
PUSH DE 
LD BC,$9C40 


Save registers. 


Value to wait for keypress. 


AKEY-PAUSE 
М08В0 DEC BC 


LDA,C 
ORB 
JR NZ, AKEY-PAUSE 


AKEY-WAIT 
М08В5 XORA 


IN A,($FE) 

AND $1F 

CP $1F 

JR 2, AKEY-WAIT 
PUSH IX 

EXX 

LD HL,CLS-LOWER 
PUSH HL 

LD L,$00 

LD H,HOMEROM 
PUSH HL 

LD HL,$0000 


CALL CALL-BANK 
POP IX 

POP DE 

POP BC 

POP AF 

RET 


REPORT-8 (BADBAS) 
MO8D9 EXX 


LD HL,$1BED 
PUSH HL 


CALL GOTO-BANK 


EXROM 


Wait for approximately 238 ms. 


Zero A. 
Poll the keyboard. 
Use only the keyboard bits. 


Jump if no key is pressed. 
See annotated example under SAVE-ETC. 


Clear the lower half of the screen. 


Restore registers. 


Back to the "save" routine. 


Address for BAD BASIC COMMAND 
error routine. 
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Extension Initialization Routine 


EXTINIT Routine 


Initialize the SYSCON table at $5EEA. Check if LROS or AROS is present, complete 
system variable initialization then jump to М18С6 in HOME ROM to continue AROS 


initialization. 


EXINIT 
MO8E7 LD HL,$5EEA 

LD (SYSCON),HL 

CALL BLDSCT 

LD HL,(SYSCON) 

LD DE,$0008 

ADD HL,DE 

LD A,(HL) 

CP $01 

JR NZ, CHK-SYSCN-AROS 


START-LROS 


Initialize the SYSCON 

system variable. 

Build the system config table 

Point to SYSCON table. 

LROS ID: check system config 

table for an LROS. 

Put the potential LROS value in A. 
Is an LROS present? 

No, jump ahead and check if AROS. 


Finish setting up system variables then call the LROS. 


MO8FC PUSH HL 
CALL NORMSVAR 
POP HL 
INC HL 
LD E,(HL) 
INC HL 
LD D,(HL) 


CALL GOTO_BANK 
CHK-SYSCN-AROS 


Save LROS pointer. 

Continue initializing system variables. 
Get the LROS pointer back. 

Move forward one space in memory. 
Put LROS entry point low byte in Е. 
Next byte. 

Put LROS entry point high byte in D. 
Save to the stack. 

Specify dock bank. 

Next byte. 

Put HSR byte in C. 

Save to the stack. 

Enable interrupts. 

Call GOTO BANK to go to the LROS. 


Check the system configuration table for an AROS. 


MO90F LD HL,(SYSCON) 
INC HL 

LD A,(HL) 

CP $02 

JR Z, WHICH-AROS 
CALL NORMSVAR 


JP NOT-AUTOSTART 
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Put location of SYSCON table in HL. 
Next byte. 

Get possible AROS ID. 

Is this an AROS? 

Jump if AROS cartridge. 

Continue initializing system variables. 
Continue with this routine. 


WHICH-AROS 
AROS is present: determine whether it is machine language or BASIC. 


MO91E 


DEC HL 

LD A,(HL) 

CP $01 

JR 2, AROS-INIT 
CP $02 

JR NZ, REPORT-R 
LD DE,$0006 
ADD HL,DE 

LD C,(HL) 

INC HL 

LD B,(HL) 

LD HL,$6840 
ADD HL,BC 

EX DEHL 

LD HL,$6840 
LDIR 

CALL INITSYSVAR 
LD HL,(SYSCON) 
LD DE,$0005 
ADD HL,DE 

LD A,(HL) 

CP $00 

ЈК ZNOT-AUTOSTART 
DEC HL 

LD C,(HL) 

DEC HL 

LD D,(HL) 


CALL GOTO_BANK 


AROS-INIT (CART-INIT) 


M0956 


CALL NORMSVAR 
LD A,$80 

LD (ARSFLG),A 

LD HL,AROS 

PUSH HL 

LD B,$FF 

LD C,$00 

PUSH BC 

CALL GOTO_BANK 
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Back up to get the 

code type designator. 

Is ita BASIC AROS? 

Yes, jump ahead. 

Is it machine code? 

No, then there's an error. 
Advance HL by 6 bytes 

to get to the number 

of bytes to reserve 

for machine code variables and 
put that value in BC. 

Set HL to start of LROS vars, 

add the amount of space needed, 
move that value to DE. 

Reset HL. 

Create space for the AROS variables. 
Finalize system variable initialization. 
Reset HL to the SYSCON table. 
Prepare to get the AROS type 
specification. 

Put the value inA. 

Is it autostart? (0 is no) 


Not autostart, continue with HOME ROM. 


Back up to put the chunk specification 
in C. 

And again to put the starting address 
in DE. 


Save the start address. 
Save the chunk specification. 


Enable interrupts. 
Start the AROS. 


Continue initializing system variables. 
Set flag to show an AROS is present. 


Jump to the AROS handler. 
Save HL. 

Set HOME bank for 

all of memory. 

Push to the stack. 
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REPORT-R (LROS_ERR) 


MO96A RST $08 Error: Missing LROS. 
DEFB $1B 
NORMSVAR (NEW-INIT) 
MO96C LD HL,$6840 Point past the RAM resident services and 
LD DE,$0015 reserve space for the CHANS table. 
ADD HL,DE 
INITSYSVAR (NEW-INIT-2) 
M0973 LD (DATADD),HL Initialize the DATADD pointer. 
INC HL Point to the start of BASIC. 
LD (PROG),HL Put that value in PROG. 
LD (VARS),HL And in the variables pointer 
LD (HL),$80 Place end-of-table marker at the end of 
the variables area. 
INC HL 
LD (ELINE), HL Initialize the input line buffer. 
LD (HL),$0D Put a carriage return in the buffer. 
INC HL 
LD (HL),$80 And an end marker. 
INC HL 
LD (WORKSP),HL Initialize system variables. 


LD (STKBOT),HL 
LD (STKEND),HL 


XOR A 
LD (ARSFLG),A Show no AROS present. 
LD (VIDMOD),A Normal video mode. 
RET 
NOT-AUTOSTART 
AROS was not autostart, continue initialization. 
M099A LD D,$FF Value for HOME bank. 
LD E,$80 HS select, top chunk in EXROM/DOCK. 
LD HL, MAIN-1 Jump address in HOME ROM. 
PUSH HL Stack the jump address. 
PUSH DE Stack bank/HS. 
LD HL,(SYSCON) Point to the first expansion bank 
LD DE,$000C entry. 
ADD HL,DE 
LD B,$00 Garbage code; not used. 
NA-LOOP-1 
MO9AC LDA,(HL) Get the entry for an expansion bank, 
CP $80 jump if at the end of the SYSCON area. 
JR Z, CART-END 
CP $00 No entry for this bank, so move on 
JR Z, JUMP-END to check the next one. 
INC HL Increment to the bank number. 
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LD B,(HL) 

LD DE,$0014 
ADD HL,DE 

LD A,(HL) 

RRCA 

JR C,NA-CK-INIT 
INC HL 

INC HL 

INC HL 

JR NA-LOOP-1 


NA-CK-INIT 
MO9CA INC HL 
LD A,(HL) 
POP DE 
CPE 
JR C, SET-EXP-INIT 
PUSH DE 
INC HL 
INC HL 
JR NA-LOOP-1 


SET-EXP-INIT 
MO9CF POP DE 
LD DE,$0005 


EXROM 


Increment to entry 15 and get 
the initialization flag. 


Initialize this bank? 
Point to the next expansion bank entry in 
the SYSCON area. 


Back around to check for more. 


Point to entry 16 and get the “boot up” 
priority. 

Get current lowest priority bank. 
Compare it to the highest priority found. 
If higher (lower value), set this to 

Save current lowest bank/HS back. 

Point to the next expansion bank 

entry in the SYSCON. 

Loop to keep testing. 


Trash the call address. 

Point to entry 10, the boot up address. 
Make present priority and bank numbers 
the new boot up values. The address of 
entry 10 becomes the boot up address. 


Point to next entry in SYSCON. 


Back around to keep testing. 


The code is incorrect. Contents of entry 10 should be the boot up address but instead 


contains bank number and priority.? 


JUMP-END 
MO9DD LD DE,$0018 
ADD HL,DE 
JR NA-LOOP-1 
CART-END 
MO9E3 РОР BC 
LD A,B 
CP $FF 


JR Z, CALL-EXT-INIT 


? "Mystery of the Missing 253" 


Point to the next expansion bank entry 
in the SYSCON area. 
Back around to check for more. 


Get the highest priority bank. 


It it the HOME bank? 
Yes, jump ahead. 


series. 
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LD C, $58 


JR GOTO-BANK 


CALL-EXT-INIT 


MO9ED 


LD C,$00 


GOTO-BANK 


MO9EF 


PUSH BC 
El 


CALL GOTO_BANK 


Allow chunks 3, 4, and ó to be in 
expansion banks. 


Allocate all chunks to HOME. 


Save bank/HS. 
Enable interrupts. 
Goto bank. 


Build System Configuration (SYSCON) Table Subroutine 


The system configuration table is a list and description of all the extra "memory" plugged 
into the TS2068. A detailed description of the system configuration table is available in 


the Third Party Software Guide. 


BLDSCT 
MO9F4 


LD HL,(SYSCON) 
XOR A 
LD (MAXBNK),A 


LD (BS_MAX_BANk),A 


LD DE,$0008 
ADD HL,DE 
LD E,$FF 

LD D,$00 
PUSH DE 

LD DE,$0001 
PUSH DE 
PUSH HL 

LD DE,$0004 
PUSH DE 

LD DE,$0001 
PUSH DE 
CALL XFER_BYTES 


LD A,(HL) 

CP $01 

JR Z,CHECK-CONF 
LD (HL),$00 


Point to SYSCON table. 

Zero A. 

Zero out MAXBANK. 

Zero out dispatcher's copy of MAXBANK. 
Value of LROS buffer. 

Add to point to get to start of LROS buffer. 
Destination bank = $FF (home). 

Source bank = $00 (dock). 


Set source address. 


Set destination address. 
Set length. 


Set direction (LDIR). 


Transfer the bytes from LROS to the SYSCON 
table. 

Check to see if 

an LROS signature is present. 

Yes, jump forward. 

Zero LROS signature to prevent system from 
incorrectly seeing an LROS as present. 


Transfer bytes from AROS to the SYSCON. 
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LD E,$FF 
LD D,$00 
PUSH DE 
LD DE,$8000 
PUSH DE 


Destination bank = $FF (home) 
Source bank = $00 (dock) 


Set source address. 


LD HL,(SYSCON) 
PUSH HL 

LD DE,$0008 
PUSH DE 

LD DE,$0001 
PUSH DE 

CALL XFER_BYTES 
INC HL 

LD A,(HL) 

CP $02 

JR Z,CHECK-CONF 
LD (HL),$00 


CHECK-CONF 
MOA3E LD HL,(SYSCON) 
LD DE,$000D 
ADD HL,DE 
LD D,$CO 
LD E,$00 
CALL WRITE_BS_REG 


CALL-RES-REG 
МОА4С CALL RESET-BS-REG 


JP NC, SET-END-MARKER 
LD BA 

SET 7,B 

LD (HL),B 
RES 7,B 

INC HL 

LD C,$FE 
PUSH BC 

LD DE,$08E7 
PUSH DE 

LD DE,$0000 
PUSH DE 

LD DE,$0001 


CALL XFER_BYTES 


EXROM 


Get SYSCON table address. 
And use as destination address. 
Set length. 


Set direction. 


Transfer bytes from AROS to SYSCON. 
Get AROS signature byte. 


Is it a valid AROS signature byte? 

Yes, jump forward. 

Zero out AROS ID byte, as we do not have 
a valid AROS cartridge. 


Get SYSCON table address. 
Point to first expansion bank in SYSCON. 


Bank status register address. 
$00 resets daisychain and starts setup mode. 
Write to bank status register. 


Find out how many valid expansion banks are 
available. Install a bank number into the bank 
selected by the daisychain. 

If the bank does not exist, jump ahead. 

Put a number into SYSCON $01. Its lowest 

7 bits are the bank number and the MSB 

is 1 to signify that the bank's not renumbered. 


Point to SYSCON $02. 
Destination bank: EXROM. 


Set source address. 
Destination address. 
Set length (1 byte). 
Set direction. 


Transfer the byte from new bank to $0000 of 
EXROM bank. 


This is a bug: should be the other way around.? 


LD E,$FF 


Destination bank = $FF (home). 


3 "Mystery of the Missing 253" series. 
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LD D,A 

PUSH DE 

LD DE,$0000 
PUSH DE 

PUSH HL 

LD DE,$0016 
PUSH DE 

LD DE,$0001 
PUSH DE 

CALL XFER_BYTES 


LD D,(HL) 


LD A,($08E7) 
CPD 


JP NZ, BLD-TBL-END 


LD C,$FE 

PUSH BC 

LD DE,$0A4C 
PUSH DE 

LD DE,$0000 
PUSH DE 

LD DE,$0001 
PUSH DE 

PUSH DE 

CALL XFER_BYTES 


LD E,$FF 

LD D,A 
PUSH DE 

LD DE,$0000 
PUSH DE 
PUSH HL 

LD DE,$0016 
PUSH DE 

LD DE,$0001 
PUSH DE 
CALL XFER_BYTES 
LD D,(HL) 

LD A,($08E7) 
CPD 


JP NZ, BLD-TBL-END 


DEC HL 
DEC HL 


Source bank provided by caller. 
Set bank. 
Set source address. 


Set destination address. 
Set length. 


Set direction. 


Transfer the bytes from $0000 of expansion bank 
to SYSCON $02 and following. If present bank is 
a RAM bank, then this is garbage. If a ROM bank, 
these are overhead bytes. 

Get SYSCON $02 and compare it to ($08E7 in 
EXROM). These should match if it’s a RAM bank 
and possibly match by coincidence if a ROM 
bank. 

No match definitely means a ROM bank. 
However, because the memory transfer 

above is buggy, this test is meaningless. This 
jump never happens. 

Destination bank = $FE (external). 

Set banks. 

Set source address. 


Set destination address. 


Length/direction. 

Set length. 

Set direction. 

Move the byte from $0A4C to $0000 in EXROM, 
which is a bug like the code above. 

Destination bank = home. 

Source bank provided by caller. 

Set bank. 

Set source address. 


Set destination address. 
Set block length. 


Set direction. 


Transfer bytes to the bank. 
Compare SYSCON $02 to 
$08E7. 

Do they match (RAM bank)? 
Jump ahead if not. 

Point to SYSCON $00. 
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CALL SET-RST-56 Copy RST $38 to destination bank. 
LD DE,$0015 Point to the next block of 
ADD HL,DE the SYSCON table. 


JR CALL-WR-BS-REG 


BLD-TBL-END 
Here for a ROM bank. 


МОАС2 LDA,D Reset SYSCON $02 bits. 


AND $DF This byte is normally a channel specification. 
LD (HL),A Convert it to upper case. 
DEC HL Point to SYSCON $01 


CALL INIT-EXPROM-BANK 


CALL-WR-BS-REG 
MOACA LD D,$CO 


Initialize bank. 


Send $01 to register $CO; steps 


LD E,$01 daisychain. 
CALL WRITE BS REG Load and do 
JP CALL-RES-REG the next bank. 


SET END MARKER Subroutine 


SET-END-MARKER 
MOAD4 DEC HL 
LD (HL),$80 


CALL CLEAR-SYSCONF 


RET 


Put $80 at end of table. 


Renumber banks according to internal 
priorities and return. 


Interruptable Restart Routine 


Mark SYSCON $02 with chunks containing RAM and copy RST $38 routine to the 


destination bank. 


Because of bugs in this routine, it does not actually do anything.4 


SET-RST-56 

MOADB LD (HL),$02 
PUSH BC 
LD DE,$0038 
PUSH DE 
PUSH DE 
LD DE,$0010 
PUSH DE 
LD DE,$0001 
PUSH DE 


CALL XFER_BYTES 


INC HL 
INC HL 


4 "Mystery of the Missing 253” 


Put $02 at SYSCON $00 (mark a RAM bank). 
Push to stack. 
Set source. 


Set destination. 
Set block length. 


Set direction. 
Transfer routine. 


Point SYSCON to $02: chunks available 
for RAM (high true). 


series. 
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LD A,(HL) 
SET 0,A 

LD (HL),A 

LD DE,$0000 
LD A,$01 


NEXT-CHUNK 
MOAF9 EX AF,AF' 
PUSH HL 
EX DE,HL 
LD DE,$2000 
ADD HL,DE 
EX DE,HL 
POP HL 
LD B,$FE 
LD А(МАХВМК) 
LD СА 
PUSH BC 
LD BC,$08E7 
PUSH BC 
PUSH DE 
LD BC,$0001 
PUSH BC 
PUSH BC 
CALL XFER_BYTES 


LD А(МАХВМК) 
LD BA 

LD C,$00 

PUSH BC 

PUSH DE 

INC HL 

PUSH HL 

LD BC,$0001 
PUSH BC 

PUSH BC 

CALL XFER_BYTES 


LD B,(HL) 

DEC HL 

LD A,($08E7) 

CPB 

JR NZ,RESET-FLAGS 


Set bit 0 of SYSCON $02. If we're here, 
there must be RAMi n chunk 0. 
Initialize chunk address pointer. 
Initialize chunk counter. 


Save chunk counter. 


Point DE to next chunk. 


Source bank = EXROM. 

Get MAXBANK. 

Destination bank - MAXBANK. 
Set banks. 

Set source. 


Set destination 


Set byte count and direction. 


Transfer byte from $08E7 to first byte in new RAM 


chunk. 

Get MAXBANK. 

Source = MAXBANK. 
Destination = DOCK. 

Set banks. 

Set source. 

Increment to SYSCON $03. 
Set destination. 


Set block length and direction. 


Transfer byte that was written to RAM and copy to 
DOCK bank. Should have been copied to 


SYSCON $03. This is a bug. 
Put contents of SYSCON $03 in B. 
Back HL up to SYSCON $02. 


Compare $08E7 in EXROM. 
No match? Jump ahead. 


Move byte from $0A4C in EXROM to first byte of current chunk of RAM bank. 


LD B,$FE 
LD А(МАХВМК) 
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Source bank = EXROM. 
Get MAXBANK. 


LD СА 

PUSH BC 

LD BC,$0A4C 
PUSH BC 

PUSH DE 

LD BC,$0001 
PUSH BC 

PUSH BC 

CALL XFER_BYTES 
LD А(МАХВМК) 


PUSH HL 

LD BC,$0001 
PUSH BC 

PUSH BC 

CALL XFER_BYTES 
LD B,(HL) 

DEC HL 

LD A,($0A4C) 
CPB 


JR NZ,RESET-FLAGS 


SET-FLAGS 
Found a RAM bank. Set the appropriate bit in SYSCON $02. 


MOBSE EX AF,AF' 


LD B,(HL) 

CP $01 

JR NZ,SET-CP-2 
SET 1,B 

JR SAVE-SET-FLAG 


SET-CP-2 
М0В68 CP $02 


JR NZ,SET-CP-3 
SET 2,B 
JR SAVE-SET-FLAG 


SET-CP-3 
MOB70 CP $03 


JR NZ,SET-CP-4 
SET 3,B 
JR SAVE-SET-FLAG 


EXROM 


Destination bank - MAXBANK. 
Set banks. 
Set source. 


Set destination. 
Set direction and byte count. 


Transfer byte. 

Get MAXBANK. 

Source bank = MAXBANK. 
Destination bank = DOCK (bug). 
Set banks. 

Set source. 

Increment to SYSCON $03. 

Set destination. 


Set direction and byte count. 


Transfer bytes. 

Get the value at (HL). 

Back up to SYSCON $02 

Put the value in $0A4C in A. 

Compare it to value from SYSCON $03. 
No match? Jump ahead. 


Get the byte at (HL). 


If 1, set bit 1 in B, 
then move on. 


If 2, set bit 2 in B, 
then move on. 


If 3, set bit 3 in B, 
then move on. 
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SET-CP-4 

MOB78 СР $04 
JR NZ,SET-CP-5 
SET 4,B 
JR SAVE-SET-FLAG 


SET-CP-5 

MOB80 CP $05 
JR NZ,SET-CP-6 
SET 5,B 
JR SAVE-SET-FLAG 


SET-CP-6 

MOB88 CP $06 
JR NZ, SET-7 
SET 6,B 
JR MOB92 


SET-7 
MOB90  SET7,B 


SAVE-SET-FLAG 


MOB92 LD (HL),B 
JR RESET-END 


RESET-FLAGS 


If 4, set bit 4 in B, 
then move on. 


If 5, set bit 5 in B, 
then move on. 


If 6, set bit 6 in B, 
then move on. 


Else set bit 7. 


Save byte back. 


No RAM іп this chunk. Reset appropriate bit in SYSCON $02. 


MOB95 EX AF,AF' 

LD B,(HL) 

CP $01 

JR NZ,RESET-CP-3 
RES 1,B 


JR RESET-END 


RESET-CP-2 
MOB9F CP $02 
JR NZ,RESET-CP-3 
RES 2,B 
JR SAVE-RESET-FLAGS 


RESET-CP-3 
MOBA7 CP $03 
JR NZ,RESET-CP-4 
RES 3,B 
JR SAVE-RESET-FLAGS 


RESET-CP-4 


MOBAF CP $04 
JR NZ,RESET-CP-5 
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If 1, reset bit 1 in B, 
then move on. 


If 2, reset bit 2 in B, 
then move on. 


If 3, reset bit 3 in B, 
then move on. 


If 4, reset bit 4 in B, 


RES 4,B 
JR SAVE-RESET-FLAGS 


RESET-CP-5 

MOBB7 CP $05 
JR NZ,RESET-CP-6 
RES 5,B 
JR SAVE-RESET-FLAGS 


RESET-CP-6 
MOBBF CP $06 
JR NZ,RESET-7 
RES 6,B 
JR SAVE-RESET-FLAGS 


RESET-7 
MOBC7 RES 7,В 


SAVE-RESET-FLAG 
MOBC9 LD (HL),B 


RESET-END 

MOBCA INCA 
CP $08 
JP NZ, NEXT-CHUNK 
RET 


EXROM 


then move on. 


If 5, reset bit 5 in B, 
then move on. 


If 6, reset bit 6 in B, 
then move on. 


Else reset bit 7. 


Save byte back. 


Update chunk counter. 
Is it 8 yet? 
No, keep going. 


Reset BS Register Subroutine 


Find true maximum bank number. Installs a bank number into the bank selected by the 
daisychain. Carry flag tells whether the bank is really there. 


RESET-BS-REG 

MOBD1 LD А(МАХВМК) 
INCA 
LD (MAXBNK),A 
LD (BS_MAX_BANk),A 
LD D, ABN 
LD E,A 
CALL WRITE_BS_REG 


LD D, BNA 

LD E,A 

CALL WRITE_BS_REG 
LD D, HS 

LD E,$00 

CALL WRITE_BS_REG 
PUSH AF 

LD A,($A000) 

EX AF,AF' 

LD A,$04 


Increment MAXBNK in 

both places it's stored. 

Save new MAXBANK 

Save local copy of MAXBANK. 

Send new maximum bank number 

Assigned Bank Number register. 

In setup mode, this installs the bank number into 
the bank selected by the daisy chain system. 
Send the new max bank number to 

Bank Number Access register. 


Send $00 to HS. 

Disables all chunks and resets 

the register. 

Save AF briefly (save maximum bank number). 
Save value at $A000. 

Exchange the register sets. 

Send $04 (bank number) to $A0 register. 
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LD ($A000),A 
LD D,$A0 
LD E,$CO 


CALL READ_BS_REG 


BIT 2,E 

JR NZ,NO-BANK 
EX AF,AF' 

LD ($A000),A 
POP AF 

SCF 

RET 


NO-BANK 
MOCOA EXAEAF' 


LD ($A000),A 
POP AF 

DEC A 

LD (MAXBNK),A 


LD (BS_MAX_BANk),A 


LD D,$CO 
LD E,$04 


CALL WRITE_BS_REG 


AND A 
RET 


Read the $C0/$A0 register pair. 


If bit 220, then the bank exists. 
Jump ahead if the bank does not exist. 
Restore the value at $A000. 


Restore AF 
Set carry flag: the bank exists. 


Restore the value at $A000. 


Get back the new "max bank value" 
and go back to the old value. 

Save it back to MAXBANK, 

in both locations. 

Send $04 to register $CO to 
terminate setup mode. 


Reset carry flag: bank does not exist. 


Initialize Expansion ROM Bank Subroutine 


Checks to see if a ROM bank needs to be initialized. If so, it executes the bank’s 
initialization routine through CALL_BANK. 


This routine wipes out the SYSCON pointer and cannot work properly. 


ІМІТ-ЕХРКОМ-ВАМК 
MOC1F DEC HL 


LD (HL),$01 
LD DE,$0015 
ADD HL,DE 
LD A,(HL) 

RRA 

JR C, EXTEND 
LD DE,$0004 
ADD HL,DE 
RET 


EXTEND 
MOC2F LD C,$08 
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LD A,(MAXBNk) 
DEC HL 
DEC HL 
DEC HL 


Point to SYSCON $01. 
Mark it as a ROM bank. 


Get SYSCON $15, in A. 

Move bit 0 to carry. 

If it's 0, then there's no initialization to do. 
Point HL to SYSCON $01 for next 

bank and return. 


Prepare to set a Horizontal Select. 

Get the bank number. 

Point to SYSCON $12 (address for 
initialization code) and put the contents 
of SYSCON $12 in to HL. 


LD D,(HL) 
DEC HL 

LD E,(HL) 

LD H,D 

LD LE 

LD BA 
PUSH HL 
PUSH BC 

LD BC,$0000 
PUSH BC 
PUSH BC 
CALL CALL_BANK 
LD DE,$0008 
ADD HL,DE 
RET 
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This is a bug: it wipes out the SYSCON 
pointer. 


Put bank number in B. 

Push address of CALL routine. 

Push bank number of call routine with HS 
being every chunk, except 3, which 
contains the CALL_BANK code. 

There will be no output on input params. 
Call to initialize. 

If HL had not been wiped, this may have 
updated the SYSCON pointer to SYSCON 
$01 for the next bank. 


Reset System Configuration Subroutine 


Resets the SYSCON table by fixing up any values that may have changed. 


RESET-SYSCONF (RESSCT) 
МОСАС XORA 


RSC-1 
М0С60 


LD (MAXBNK),A 

LD (BS MAX ВАМЮ,А 
LD D,$CO 

LD E,$00 

CALL WRITE_BS_REG 
LD HL,(SYSCON) 

LD DE,$000C 


ADD HL,DE 

CALL RESET-BS-REG 

JP NC, SET-END-MARKER 
LD A,(HL) 

PUSH HL 

CP $80 

JR NZ, CALL-RES-BS-REG 
LD DE,$0018 

ADD HL,DE 

LD (HL),A 


CALL-RES-BS-REG 


МОС72 


CALL RESET-BS-REG 
LD HL, BNADDR 

LD E,$FF 

LD D,A 

PUSH DE 

LD DE,$0000 

PUSH DE 


(0C72) 
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PUSH HL 

LD DE,$0016 
PUSH DE 

LD DE,$0001 
PUSH DE 

CALL XFER_BYTES 
EX AF,AF' 

LD A,(HL) 

CPL 

DEC HL 

LD (HL),A 

EX AF,AF' 

LD D,$FF 

LD E,A 

PUSH DE 

PUSH HL 

LD DE,$0002 
PUSH DE 

LD DE,$0001 
PUSH DE 

PUSH DE 

CALL XFER_BYTES 
LD E,$FF 

LD D,A 

PUSH DE 

LD DE,$0002 
PUSH DE 

INC HL 

PUSH HL 

LD DE,$0001 
PUSH DE 

PUSH DE 

CALL XFER_BYTES 
LD A,(HL) 

DEC HL 

LD B,(HL) 

CPB 

JR NZ, SKIP-WR-BS-REG (OCCA) 
POP HL 

LD A,(HL) 

CP $02 

JR NZ, CALL-SET-RST-56 (0CC5) 
INC HL 

INC HL 

JR WRITE-BS-REG (OCE8) 


CALL-SET-RST-56 
МОСС5 CALL SET-RST-56 Set RST 56 
JR WRITE-BS-REG (OCE8) 
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SKIP-WR-BS-REG 
MOCCA LD C,(HL) 


JR Z, WRITE-BS-REG (OCE8) 
PUSH HL 

EX DE,HL 

LD HL,BNADDR 

LD BC,$0016 

LDIR 

POP HL 

DEC HL 

LD A,(MAXBNk) 

SET 7,A 

LD (HL),A 

CALL INIT-EXPROM-BANK 
INC HL 


WRITE-BS-REG 
MOCE8 LD D,$CO 
LD E,$01 
CALL WRITE BS REG 
LD DE,$0016 
JP RSC-1 


SET-END-MARKER 

MOCF5 LD (HL),$80 
CALL CLEAR-SYSCONF 
RET 


Renumber Banks Based on Interrupt Priority Subroutine 


CLEAR-SYSCONF 
MOCFB XORA Load 0 into MAXBANK. 


LD (MAXBNK),A 


GET-SYSCONF-TABLE 

MOCFF LD HL,(SYSCON) Get SYSCON table address. 
LD DE,$000C Point to SYSCON $00 for first bank. 
ADD HL,DE 

CHK-RENUM-BIT-LOOP 

М0006 LD A,(HL) Get SYSCON $00 and 
CP $80 compare it to $80. 
JR Z,CLEAR-MAX-BANK If equal, we've reached end of the table. 
INC HL Point to SYSCON $01: the bank number. 
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LD A,(HL) 
BIT 7,A 


JR NZ,USR-SYS-1 
LD DE,$0017 
ADD HL,DE 


Get the bank number and 

check bit 7. This bit is only set if bank has 
not been renumbered yet. 

Jump ahead if not renumbered. 

Point to SYSCON $00 for next bank. 


JR CHK-RENUM-BIT-LOOP Loop back. 


USR-SYS-1 

MOD17 LD (BNADDR),HL 
DEC HL 
LD A,(HL) 
CP $02 
JR NZ,USR-SYS-2 
LD DE,$0017 
ADD HL,DE 
LD A,SFF 
JR USR-SYS-3 


USR-SYS-2 

MOD28 LD DE,$0017 
ADD HL,DE 
LD A,(HL) 


USR-SYS-3 
MOD2D LD (BANKP),A 


USR-SYS-LOOP 
MOD30 INC HL 
MOD31 LD A,(HL) 
CP $80 
JR ZINCREASE-BANKS 
INC HL 
LD A,(HL) 
BIT 7,A 


JR NZ,USR-SYS-L-1 
LD DE,$0017 
ADD HL,DE 

JR USR-SYS-LOOP 


USR-SYS-L-1 
MOD42 DEC HL 
LD A,(HL) 
CP $02 
JR NZ,USR-SYS-L-2 
LD DE,$0017 
ADD HL,DE 
JR USR-SYS-LOOP 
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Save the bank number to a temp location. 
Point to SYSCON $00. 

Get value and 

compare to $02 (ROM value). 

Jump if a ROM bank. 

Point to SYSCON $17, the interrupt 
priority. 

Assign a priority of $FF (lowest priority). 


Point to SYSCON $17. 


Get the priority. 
Save the priority. 


Point to SYSCON $00 for next bank. 

Get SYSCON $00 and 

compare to $80, which marks end of table. 
Jump forward if end of table. 

Point to SYSCON $01. 

Get SYSCON $01 

and check bit 7. Set if bank is not yet 
renumbered. 

Jump ahead if it is not renumbered. 

Point to SYSCON $17. 


Go back until done. 


Point to SYSCON $00. 

Get it and 

compare to $02 (ROM bank). 
Jump forward if not ROM bank. 
Point to SYSCON $17. 


Loop back until done. 


USR-SYS-L-2 

MOD4E EX DE,HL 
LD BC,$0017 
ADD HL,BC 
LD A,(BANKP) 


JR NC,USR-SYS-LOOP 
LD (BANKP),A 

LD (BNADDR),DE 

JR USR-SYS-LOOP 


Increase Banks Subroutine 


INCREASE-BANKS 
MOD64 LD А(МАХВМК) 
INCA 
LD (MAXBNK),A 
LD HL(BNADDR) 


CALL XFER_BYTES 
JP GET-SYSCONF-TABLE 
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BUG: Should copy HL to DE. 
Point HL to SYSCON $17. 


Put previous priority in B. 


Get present priority and 

compare to B. 

Go back if present priority is lower. 
Save new priority 

and bank number address. 

Loop back. 


Get MAXBNK and 

increment it then 

save it. 

Get address of highest priority bank number, 
Save bank number to that address. 


In theory, this is supposed to put the bank 
number at the location $0000 of the RAM 
bank. Instead, due to a bug, it uses the 
bank number as an address and copies 
from that address in the home bank to 
address $0000 of the expansion bank. 


Clear Max Banks Subroutine 


CLEAR-MAX-BANK 
MOD84 XORA 
LD (MAXBNK),A 
LD (BS_MAX_BANk),A 
LD D,$CO 
LD E,$00 
CALL WRITE_BS_REG 
LD HL,(SYSCON) 
LD DE,$000D 
ADD HL,DE 
LD D,$A0 


Set MAXBNK to 0. 


Send $00 to register $CO. 
Resets the daisychain. 


Get address of first bank number in the 
SYSCON table. 
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CALL-RESET-BS-REG 
MOD9B CALL RESET-BS-REG Increments MAXBANK and checks 
RET NC to see if that bank number exits. Returns 
with carry flags set. Installs that number in the 
bank — after they had been renumbered. 


LD E,(HL) Get the correct (renumbered) bank 

CALL WRITE_BS_REG number and install it in the bank. If we get here, D 
ontains $A0, left over from the routine above. 

LD D,$CO Send $01 to register $CO, which 

LD E,$01 advances the daisychain. 

CALL WRITE_BS_REG 

LD DE,$0018 Point to the next bank number in the 

ADD HL,DE SYSCON table. 


JR CALL-RESET-BS-REG 


Change Video Mode Routines 


Open Display File Routine 


Open the second display file. Move the UDG, then move the stack and RAM resident 
code to high memory. Update the video mode and the video port. 


OPEN-DFILE (OPDFIL) 


MODBO PUSH BC Save the registers. 
PUSH DE 
PUSH HL 
PUSH AF 
LD HL,(PRAMT) Get physical RAM top. 
LD DE,(UDG) Get the pointer to the UDG. 
AND A Number of bytes occupied by 
SBC HL,DE the UDG. 
LD B,H Put into byte counter. 
LD C,L 
INC BC Adjust for zero base. 
LD HL,(UDG) Point to the present UDG. 
PUSH HL Save briefly. 
LD DE,$0840 Number of bytes needed by RAM resident 
routines and stack. 
ANDA Compute the new address 
SBC HL,DE for the UDG. 
EX DE,HL 
POP HL Restore the present UDG address. 
LD (UDG),DE Point to the new UDG location. 
OPEN-XFER-UDG 
MODD1 LDIR Move the UDG. 
LD HL,$0000 HL will contain the new 
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ADD HL,SP 
LD ВС,597С0 
ADD HL,BC 
DI 

LD SP.HL 

LD DE,$F7CO 
LD HL,$6000 
LD BC,$0840 


OPEN-XFER-DISPATCHER 
MODE6  LDIR 


LD HL,$1D00 
LD BC,$97CO 


OPEN-FIX-BL-LOOP 
MODEE LD E,(HL) 


INC HL 
LD D,(HL) 
INC HL 
LD A,E 
ORD 


JR Z, OPEN-FIX-BL-DONE 


EX DEHL 
ADD HL,BC 
PUSH DE 
LD E,(HL) 
INC HL 

LD D,(HL) 
EX DE,HL 
ADD HL,BC 
EX DE,HL 
LD (HL),D 
DEC HL 

LD (HL),E 
POP HL 

JR OPEN-FIX-BL-LOOP 


OPEN-FIX-BL-DONE 


POP AF 
LD (VIDMOD), A 
PUSH AF 

EI 


CLEAR-DFILE2 


LD HL,$6000 


CL-DF-LOOP 
MOEOE XORA 


LD (HL),A 
INC HL 
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SP used when the stack and 
RAM resident code are moved. 


Disable interrupts. 

Update the stack pointer. 

New location for stack and RAM routines. 
Old location. 

Length of stuff to move. 


Move it. 
Point to the fix table. 
Offset to be added to addresses. 


Get fix offset. 


Point to next entry. 
Jump if we have reached the end 
of the table. 


Point to moved code that 
needs fixing. 
Save the table pointer 


Get the code needing fixing. 


Fix the address and 
put it back. 


Restore the table pointer. 
Back around for more entries. 


Get caller's desired video mode 
and store it. 

Save it again. 

Enable interrupts. 


Point to the second display file. 


Zero A. 
Clear the byte. 
Step forward one. 
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LD A,H 

CP $7B 

JR NZ, CL-DF-LOOP 
POP AF 

PUSH AF 

AND $7F 


LD BA 
IN A,(DECR) 


AND $80 
ORB 

OUT (DECR),A 
POP HL 

POP DE 

POP BC 

POP AF 

RET 


Close Display File Routine 


Loop until we reach $7AFF 


Keep clearing. 

Get the requested video mode 

save it again. 

Only use the lower seven bits (don't munge the 
EXROM select). 

Save it in B. 

Get the present value of the display enhancement 
control register. 

Save the EXROM select. 

OR in the request. 

Update the display enhancement control register. 
Restore registers. 


Close the second display file. Moves the stack and RAM resident code from high memory 
back to low memory. Updates SP and relocates the UDG. 


This code does not work properly. 


CLOSE-DFILE (CLDFIL) 
MOE27 PUSH AF 
PUSH BC 
PUSH DE 
PUSH HL 
IN A,(DECR) 
AND $80 
OUT (DECR),A 
LD HL,$0000 
ADD HL,SP 
LD DE,$97CO 
AND A 
SBC HL,DE 
DI 
LD SPHL 
LD HL,$FFFF 
LD DE,$683F 
LD BC,$0840 


CLOSE-XFER-DISPACHER 
М0Е46 LDDR 


LD HL,$1D00 
LD BC,$97CO 
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Save registers. 


Get display mode value 
and set for black and white, 
normal video, EXROM selected. 


Set HL to the value the 
SP will need once the stack 
has been moved to low memory. 


Disable interrupts. 

Update the stack pointer. 
Move the RAM resident code 
and the stack back to low 
memory (starting at $6000) 


Do the move. 

The location of the fix table. 

Offset value to convert code addresses from high 
memory addresses to low memory addresses. 


CLOSE-FIX-BL-LOOP 


MOE4E 


LD E,(HL) 


JR Z, CLOSE-XFER-UDG 
PUSH HL 

EX DE,HL 

LD E,(HL) 

INC HL 

LD D,(HL) 

EX DE,HL 


SBC HL,BC 

EX DE,HL 

LD (HL),D 

DEC HL 

LD (HL),E 

POP HL 

JR CLOSE-FIX-BL-LOOP 


CLOSE-XFER-UDG 


MOE66 


XOR A 

LD (VIDMOD),A 
El 

LD HL,$F7BF 


LD DE,$FFFF 
PUSH HL 

LD BC,(UDG) 
AND A 

SBC HL,BC 
LD B,H 

LD C,L 

INC BC 

POP HL 
LDDR 

LD DE,$0840 
LD HL,(UDG) 
ADD HL,DE 
LD (UDG)HL 
POP HL 

POP DE 

POP BC 

POP AF 

RET 
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Get a fix address. 

Point to the next one. 

Jump if the end of the table. 
Save the table pointer. 


Get the JP/CALL address 
in the RAM resident code. 


Convert the address from 
high memory to low memory. 


Modify the code. 


Restore the table pointer 
back around for more entries. 


Force normal video mode. 


We can now allow interrupts again. 
Address of UDG end when code is in high 
memory. 

New UDG location. 

Save the old UDG address. 

Get the current UDG pointer. 

Number of bytes to move. 


Transfer to byte counter. 
Bump by one. 

Restore old address. 
Move the UDG 

Update the UDG pointer 


in the system variables. 


Restore the caller's 
registers. 
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Change Video Mode Routine 


This function is used to open/close the second display file (and its corresponding 
attributes file). If the second display file is closed, it should not be used by the 
applications programmer because data structures used by the operating system overlay 
the memory area. To access the routine, pass the requested video mode in A. 


System variable VIDMOD tracks the current display mode. 


Using the second display file means that the function dispatcher and system stack are 


moved to the top of memory. 


CHANGE-VIDEO (CHNG_V) 


МОЕВЕ 


PUSH BC 

PUSH DE 

PUSH HL 

PUSH AF 

LD BA 

LD A,(VIDMOD) 
AND A 


JR NZ, CV-MODE-0 


ORB 
JP 2, CV-END 


Save the registers. 


Save the requester's mode. 
Jump if present mode is NOT 
zero. 


Jump if mode 0 is requested 
and current mode is ‘0’. Exit video mode change 
with out doing anything. 


Initiate a change from mode 0 to some other mode 
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LD HL,$12CO 

LD B,H 

LD C,L 

LD DE,$0840 
ADD HL,DE 

LD DE,(STKEND) 
ADD HL,DE 

LD DE,(RAMTOP) 
AND A 

SBC HL,DE 

JP NC, CV-ABORT 
LD HL,$683F 


LD DE,POINTERS 
PUSH DE 

LD DE,$FFOO 
PUSH DE 

LD DE,$0000 
PUSH DE 

PUSH DE 

CALL CALL_BANK 


Number of bytes needed for RA services. 
Save for POINTERS later on, if needed. 


%2В00 total bytes needed. 


Add to free RAM space stored in 
STKEND. 


If the carry is set, RAMTOP is set 

Too low to allow moving the RAM services, 

error exit. 

Fence value: all system variables that point above 
this will be changed. (BC was set up earlier to 
$12C0). 

Address for POINTERS. 


Specify home bank, all chunks 
in home. 


No parameters in or out. 


LD-UP-PROG 

MOEC8 LD HL,(STKEND) 
EX DE,HL 
LDDR 
POP AF 
PUSH AF 
CALL OPEN-DFILE 
LD BC,$97CO 


UPDATE-POINTERS 
MOED6  LD HL,(ERRSP) 
ADD HL,BC 
LD (ERRSP),HL 
LD HL,(LISTSP) 
ADD HL,BC 
LD (LISTSP),HL 
LD HL,(MSTBOT) 
ADD HL,BC 
LD (MSTBOT),HL 
JR CV-END 


CV-MODE-O 
MOEED LD A,B 
AND A 
JR Z, CV-MODE-0-2 
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Move the FP stack. 
Restore caller's video mode. 


Open the second display file. 


Point the ERRSP to the newly moved 
stack. 


Update list stack pointer. 


Update machine stack pointer. 
Jump to exit. 
Jump if requested mode is 


'0' (move the stack and 
RAM resident code back down). 


The requested mode was NOT zero and the present mode is not zero, so 
simply update the necessary items, then exit. 


AND $7F 

LD B,A 

IN A,(DECR) 
AND $80 

ORB 

OUT (DECR),A 
LD A,B 

LD (VIDMOD),A 
JR CV-END 


Don't allow changes to the EXROM select. 
Briefly save. 

Get the present video control port value. 
Save the EXROM select. 

OR in the requested mode 

and output to the port. 

Save the requested mode to 

VIDMOD. 

Done. 
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CV-MODE-0-2 
The present mode is not zero and the requested mode is zero, so 
prepare to move everything back around as needed. 


MOFO1 CALL CLOSE-DFILE Close the display file. 
LD BC,$97CO 
LD HL,(ERRSP) Update ERRSP to new 
AND A stack location. 
SBC HL,BC 


LD (ERRSP),HL 

LD HL,(LISTSP) 

ANDA Do the same for the 
SBC HL,BC LISTSP. 

LD (LISTSP),HL 

LD HL,(MSTBOT) 


AND A Yet again for MSTBOT. 
SBC HL,BC 
LD (MSTBOT),HL 
LD BC,$12CO Number of bytes to delete. 
LD HL,$6840 Start address. 
LD DE,RECLAIM-2 Delete the bytes. 
PUSH DE 
LD DE,$FFOO HOME bank, all 
PUSH DE chunks. 
LD DE,$0000 
PUSH DE No params in or out. 
PUSH DE 
CALL CALL_BANK 
JR CV-END Done. 
CV-ABORT 
MOF3A SCF Set carry flag (indicates error) 
JR GET-REGISTERS and exit. 
CV-END 
MOF3D ANDA Reset carry flag (all OK). 


GET-REGISTERS 
MOF3E POP AF 


POP HL Restore caller's registers. 
POP DE 

POP BC 

RET 


358 


PASSING Routine 


EXROM 


This routine was supposed to take information from PASSEM in the HOME ROM and pass 
it along to routines to handle expansion bus devices like a disk drive. 


XPASSING (PASSIN) 


MOF43 


LD BC, (CH_ADD) 
CALL M255D 

LD HL,(CH_ADD) 
AND A 

SBC HL,BC 

DEC HL 

LDA,L 

LD HL,(STKEND) 
LD (HL),A 

INC HL 

POP BC 

LD (HL),B 

INC HL 

LD (HL),C 

INC HL 

LD (STKEND),HL 
LD HL,(CH_ADD) 
DEC HL 

BIT 0,A 

JR Z,PASS-2 


PASS-LOOP 


MOF67 


PASS-2 
MOF73 


DECA 


JP M, GET-GOSUB-ADDR 
LD C,(HL) 

DECHL 

PUSH BC 

JR PASS-LOOP 


LD B,$20 

AND A 

RETZ 

LD C,(HL) 
DECHL 
DECA 

PUSH BC 

JR PASS-LOOP 


Point BC to СН ADD. 

Off by one byte to CK-END (M255E). 
Point HL to СН ADD. 

Clear flags. 

Subtract 


Point HL to the end of the stack. 
Put A on the stack. 


Put B on the stack. 


Put C on the stack. 
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GET-GOSUB-ADDR 
MOF7D LD HL,(STKEND) 
DEC HL 

LD A,(HL) 

DEC HL 

LD (STKEND),HL 
LD H,(HL) 

LD ЦА 

PUSH HL 

RET 


Bank Switching 


These routines are shortcuts to finding and calling the appropriate routines, 
depending on whether dispatcher is in its normal location or has been relocated 
to accommodate a second display file. 


Go To Bank Routine 


GOTO-BANK (GOTO_B) 
MOF8A PUSH AF 


Determine where the function 


LD A,(VIDMOD) dispatcher is located. 
ANDA 
JR Z, GB-MODE-0 Jump to normal function dispatch. 
POP AF Restore AF. 
JP GOTO BANK-HI Jump to high function dispatch 
GB-MODE-0 
MOF95 POP AF Restore AF. 
JP GOTO_BANK 
Call Bank Routine 
CALL-BANK (CALL B) 
MOF99 PUSH AF Save AF. 
LD A,VIDMOD) Check VIDMOD. 
AND A Clear flags. 


JR Z, CB-MODE-O 


POP AF 
JP CALL BANK-HI 


CB-MODE-0 
MOFA4 POP AF 
JP CALL_BANK 
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Jump if non-expanded (single display file) video 
mode. 

Restore AF. 

Jump to expanded video mode (two display file) 
function dispatcher. 


Restore AF 
Jump to normal function dispatcher. 
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Function Dispatcher 


The function dispatcher provides a common interface to system routines via service code 
and jump flag parameter passed on the machine stack. 


To call a function: 

1. set up and memory and stack (machine and/or calculator) locations as if invoking the 
desired service directly 

2. push the parameters for the dispatcher on the machine stack in the order outlined 
below 

3. set up the registers as if invoking the desired service directly and call the dispatcher at 
its current location (Chunk 3 if VIDMOD=0 or Chunk 7 if VIDMOD<>0) 


Parameters 

PRM_OUT (16 bits) Number of bytes of parameter data being passed on the 
stack to the specified service (number of stack "pushes" * 
2). Zero if no parameters being passed. This parameter is 
passed to the dispatcher only if the Jump Flag (bit 15 of 
SVC_CODE) is not set. 

PRM IN (16 bits) Number of bytes of parameter data to be passed back 
from the specified service (number of stack pushes * 2). 
Zero if no parameters are passed back. This parameter is 
passed to the dispatcher only if the Jump Flag (bit 15 of 
SVC_CODE) is not set. 

SVC_CODE (16 bits) Bits 0-14 identify the service to be invoked. Bit 15 (Jump 
Flag) is set if no return is desired (jump to service rather 
than call). Bit 15 is zero if return is desired. 


The code for the function dispatcher is copied from $1000 in the Extension ROM to 
Chunk 3 ($6200) at system initialization. Since this is in the same memory area as the 
second display file, this code must be relocated, along with the machine stack, if the 
second display file is used. The CHANGE-VIDEO routine does the necessary relocation 
and modifications. 


Because this code is not in a fixed location, access to these routines depends on the 
current video mode. Test the value of VIDMOD to determine the current video mode. A 
zero indicates that the second display file is not in use and that the OS RAM routines are 
in Chunk 3; a non-zero value indicates that the routines are in Chunk 7 ($F9CO). 


Sample usage 


LD DE, $0000 

PUSH DE Set input and output params 
PUSH DE to zero. 

LD DE, function # From table below. 

PUSH DE Put function # on stack. 


CALL $6200 or $F9CO 


361 


EXROM 


Function Dispatcher Services 


W_TAPE $00 
Write a block to tape. 

R_TAPE $01 
Read a block from tape. 

RD_BIT $02 
Read a bit from tape. 

R_EDGE $03 
Read an edge from tape. 

SLVM $04 
General tape routine. 

LOAD $05 
Load. 

MERGE $06 
Merge. 

SAVE $07 
Save. 

CHNG_VID $08 
Change video mode. 

W_BORD $09 
Write border color. 

RESERVED $0A-$0D 
GET_STATUS $0Е 
Returns memory selection (low active) іп С for bank number іп В. 

GET_NUMBER $OF 
BANK_ENABLE $10 
GOTO_BANK $11 
CALL_BANK $12 
XFER_BANK $13 
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RESERVED $14-$18 
UPD_K $19 
Process keyboard input. 

PARP $1A 


Generate DE+1 cycles of tone with a period of 8N+236 to *N+246 T-states. 
HL=N. 


BEEP $1B 
Beep command. Parameters on calculator stack. Exits via PARP. 

K_DUMP $1C 
COPY command. Dumps primary display file to printer. 

SENDTV $1D 
Character output to screen/printer. Character code in A. 

SETAT $1E 


Set print position to value in BC. Line number (0-23) in B; column number (0-31) in 


STTBYT $1F 


Set attribute byte for display file address in HL using ATTR_T, MASK_T and 
P_FLAG. 


R_ATTS $20 
Copy permanent attribute info to temporary attribute variables. 

CLLHS $21 
Clear lower half of the screen in the primary display file. 

CLS $22 
Clear entire screen in primary display file. 

DUMPPR $23 
Print/clear print buffer. 

PRSCAN $24 


Send scan (32 bytes) to printer. Pixel data address in HL. Number of scans 
remaining in B (1-8). 


DESLUG $25 
Remove number slugs from edit line buffer. Address in HL. 

K_NEW $26 
NEW command. 

INIT $27 


Initialize the system. Maximum RAM address іп DE. А-0, power on state. A=-1, 
execute NEW. 
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INCH $28 

Input a character to A from the currently selected channel. Returns NC if no input. 
SELECT $29 

Select channel (stream). Number in A. 

INSERT $2A 


Insert BC bytes before address in HL Copies up all from HL to STKEND and 
updates affected system variables. Returns BC=0, DE=address of last byte of 
inserted space, HL-address of byte before first. 


RESET $2B 
Reset calculator stack. Sets STKEND = STKBOT and MEM - MEMBOT ($5C92). 
CLOSE $2C 
CLOSE # command. Channel number on calculator stack. 

CLCHAN $2D 
Close channel. Value from STRMS (index into CHANS) in BC. 

OPEN $2E 
OPEN # command. Channel number and device specification on calculator stack. 
OPCHAN $2F 


Open channel. Device specification on calculator stack. Pointer into STRMS based 
on channel number in DE. 


CAT $30 
CAT command. Not implemented. 

DELETE $31 
DELETE command. Not implemented. 

FORMAT $32 
FORMAT command. Not implemented. 

MOVE $33 
MOVE command. Not implemented. 

FLASHA $34 


Flash character in A to screen. Calls SENDTV, assumes lower screen is selected. 
Used to flash the cursor. 


FIND_L $35 


Find BASIC program line with the number in HL. If line is found, returns Z and 
address of line in HL. Otherwise, returns NZ and HL either contains address of line 
with next larger line number of points to the variables area if there is no larger line 
number. Requested line number returned in BC and address of preceding line in 
DE (DE=HL if no preceding line). 


SUBLIN $36 


Finds either the D'th statement (D=statement number; E=0) or first statement 
whose keyword token matches E (D=0), in a line pointed to by HL. If the D'th 
statement is found, returns Z and HL and СН ADD both point to 1 byte before 
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the statement. If the line contains exactly D-1 statements, then the next line 
counts as the D'th. If a match on E is found, it returns NZ, NC and both HL and 
CH. ADD point to the keyword. D is decremented by the number of statements 
examined (ie D=-2 if two statements). If no match is found for E then returns NZ, 
C with both HL and СН ADD pointing to the end-of-line byte ($0D). 


RECLEN $37 
Returns in BC the length of the record pointed to by HL. The record can be a 
program line, string, numeric variable or array. 

DELREC $38 
Delete record point to by HL having length BC from program or variables 
memory. Updates affected system variables. 

PUT BC $39 
Converts number in BC from binary to ASCII and outputs to currently selected 
channel. If BC is less than O, outputs a O. 

SYNTAX $3A 


Check syntax of command or program line in Edit Line buffer (E LINE). 
ERR_NR=-1 if no errors, otherwise contains Error Number - 1. 


EXCUTE $3B 
Execute command(s) from Edit Line buffer. 

FOR $3C 
FOR command. 

STOP $3D 
STOP command. Does RST 8 with error number 9. 

NEXT $3E 
NEXT command. 

READ $3F 
READ command. 

DATA $40 
DATA statement. 

RESTBC $41 
RESTORE command. Line number in BC. 

RAND $42 


RANDomize command. Sets seed for random number generator based on 
parameter on calculator stack. If parameter is non-zero, value is loaded to SEED. If 
zero, value in FRAMES is loaded to SEED. 


CONT $43 


CONT command. Loads values from OLDPPC and OSPPC to NEWPPC and 
NSPCC and returns. Inside the BASIC interpreter, this results in executing from 
line number in NEWPPC, statement number in NSPPC. 
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JUMP $44 


Jump to line. Loads line number from calculator stack to NEWPPC, sets NSPPC 
to 0 and returns. 


FIX U1 $45 


Converts floating point number on calculator stack to a single byte unsigned 
binary value in A (uses FP-TO-A). Error B if the number is out of range. 


FIX U $46 
Converts floating point number on calculator stack to a 2-byte unsigned binary 
value in BC (uses FP2BC). Error B if number is out of range. 


CLEAR $47 


CLEAR command. Processes parameter on calculator stack to value in BC for 
CLR BC. 


CLR BC $48 
Value in BC is new RAMTOP. Deletes variables, clears screen and calculator stack. 
GO SUB $49 


GO. SUB command. Inserts a 3 byte GO. SUB block into the machine stack above 
the two most recent entries. The block consists of the current line number (2 
bytes) and statement number (1 byte) to be used when RETURN is executed. Calls 
JUMP to process GO. SUB parameter and returns. At return to caller, machine 
stack consists of top of stack at point GO. SUB was called, followed by З byte 
entry (line number MSB, line number LSB, statement number). 


CHK SZ $4A 


Checks if there is room for BC + 80 ($50) bytes between STKEND and RAMTOP. 
Addition of 80 bytes is left over from Spectrum to guarantee minimum machine 
stack where the stack was at the top of RAM. Error 4 if not enough room. 


RETURN $4B 


RETURN command. Retrieves most recent GO. SUB block from machine stack (SP 
+ 4), loads data to NEWPPC and NSPPC and returns. Error 7 if MSB of line 
number is $3E (end of stack marker). 


PAUSE $4C 


PAUSE command. Processes parameter on calculator stack to BC then waits BC 
frames or until key is depressed. Uses HALT instruction, so interrupts must be 
enabled. 


BREAK? $4D 


Reads keyboard directly to see if both CAPS SHIFT and SPACE (BREAK) are being 
pressed. Returns NC if it is pressed and ON ERROR if it is not active. 


DEF $4E 
Define Function. 
K LPR $4F 


LPRINT - selects channel 3 and processes items in LPRINT statement for output 
via WRCH. 
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K_PRIN $50 


PRINT - selects channel 2 and processes items in PRINT statement for output via 
WRCH (same code used for K_LPR). 


P_SEQ $51 
Code used by K_LPR and K_PRIN to process output data and controls in BASIC 
statement. Address in CH_ADD. 

INPUT $52 
INPUT command. Selects channel 1 and processes I/O for keyboard/lower screen 
using a buffer at WORKSP for input. 

І SEQ $53 


Code used by INPUT to process input items and controls in BASIC statement. 
Address in CH_ADD. 


NOTKB? $54 
Returns Z if current channel is keyboard/lower screen (device specification "K"). 
COLOR $55 


Adjusts system variables ATTR T, MASK T and P FLAG for color code in D (0-9). 
Enter with C to set INK or NC to set PAPER. Error K if D is invalid. 


HIFLSH $56 


Adjusts system variables (ATTR_T and MASK Т) for flash/bright code in D (0, 1 or 
8). Enter with C for FLASH, NC for BRIGHT. Error K if D is invalid. 


SCRMBL $57 


Returns the primary display file address for the pixel with coordinates in BC (B=Y, 
C=X) in HL. Returns the bit number (0-7) where O-lefthand or most significant bit 
in A. Error B if Y is greater than 175. 


PLOT $58 


PLOT command. Processes X/Y parameters on the calculator stack to BC for 
plotting of pixel via PLOTBC. 


PLOTBC $59 


Deals with pixel for coordinates in BC (B=Y, C=X). Processes using P. FLAG for 
INVERSE and OVER attributes. Updates attribute file and sets COORDS-BC. 


GET XY $5A 


Converts a pair of numbers from the calculator stack to 2 single byte numbers. 
Top number goes to B and second to C. Design of B and E=sign of C (+1 or -1). 
Used by PLOT and other routines. 


CIRCLE $5B 


CIRCLE command. Calculates successive plot positions from the parameters in the 
BASIC statement. 


DRAW $5C 


DRAW command. Calculates successive plot positions from the parameters in the 
BASIC statement. 
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DRAW_L $5D 


Plots a straight line from current position (COORDS) based on parameters from 
calculator stack (X, Y). 


EXPRN $5E 


Evaluates expression in BASIC program line (CH_ADD), putting value on 
calculator stack. 


F_SCRN $5F 


SCREEN$ function. Matches screen line/column number (parameters on calculator 
stack) against standard ASCII character set. Returns BC=0 if nothing is found. 
BC=1 and DE points to character code byte if match found. 


F ATTR $60 
ATTR function. Returns attribute byte value controlling screen pixel position based 


on stack parameters on calculator stack (X, Y). 


RND $61 


RND function. Uses value in SEED to generate a pseudo-random number which is 
placed on the calculator stack (floating point number). 


F PI $62 
РІ function. Places value of PI on calculator stack. 
F INKY $63 


INKEY$ function. Scans keyboard and puts character code byte in WORKSP if key 
detected. If any case, pushes registers AEDCB onto calculator stack. BC=0 if no 
input, =1 if character code stored; DE=address of character code byte. 


FIND N $64 
Parse and find a specifed variable. Searches variables area for match against 
identifier pointed to by СН ADD. Adjusts bit NO of FLAGS (bit 6) for type 
(1=numeric, O-string). Also used to find formal parameters for user defined 
functions. 


PSHSTR $65 


Push string. Clears bit NO of FLAGS and pushes registers AEDCB on to calculator 
stack, adjusting STKNXT upwards. DE contains address of string, BC contains 
length. 


PAEDCB $66 
Same code as for PSHSTR but preserves state of bit NO of FLAGS (bit 6). 

LET $67 
LET command. Processes existing or creates new variables. 

POPSTR $68 


Pop string. Pops end of calculator stack (STKNXT-1 through STKNXT-5) to 
registers BCDEA, adjust ing STKNXT downwards. 


DIM $69 
DIM statement. Creates or initializes numeric or string arrays. 
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STKUSN $6A 


Stack unsigned number. Inputs a floating point number on to the calculator stack 
from a series of ASCII characters address by CH_ADD. The first character is 
already in A (either decimal point, binary token or digit). 


STK_A $6B 


1-byte unsigned integer in A to top of calculator stack (binary to floating point). 
Loads 0 to B an A to C, then executes STACK-BC. 


STK_BC $6C 
2-byte unsigned integer in BC to top of calculator stack (binary to floating point). 
ININT $6D 


Converts a series of ASCII digits pointed to by CH_ADD into an unsigned floating 
point integer on the calculator stack. First character is in A on entry. Terminates 
when non-digit is found. 


FP2BC $6E 


Pops top of calculator stack (floating point number) and puts it in BC, rounded to 
nearest integer. Returns NZ if value is negative. Returns C if number exceeded 
maximum 2-byte value (65535). Range -65535 to 65535. 


FP2A SOF 


Pops top of calculator stack (floating point number) and puts in A, rounded to 
nearest integer. Returns NZ if value is negative. Returns C if number exceeded 
maximum 1-byte value (255). Range: -255 to 255. 


OUTPUT $70 


Outputs number on top of calculator stack to currently selected channel via 
WRCH. Converts from floating point to ASCII. 


SUB $71 


Subtract floating point format numbers (HL) minus (DE). (DE) assumed to be (HL) 
+5; 


ADD $72 
Add (HL) to (DE). See SUB. 

MULT $73 
Integer multiply HL * DE. Returns C if overflow. 

TIMES $74 
Floating point multiply (HL) * (DE). 

DIVIDE $75 
Floating point divide (HL)/(DE). 

TRUNC $76 


Truncates a floating point number (HL) towards zero to an integer. Assumes (DE) = 
(HL) + 5. 
FLOAT $77 


Converts number (HL) to floating point format. Assumes HL points to an integer in 
5-byte format. 
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INTDIV $78 
Replaces top two numbers on calculator stack (X and Y) with X mod Y and the 
integer quotient INT (X/Y). Returns with DE and HL = calculator stack pointers. 
INT $79 
Replaces the top of the calculator stack with its integer part. Returns with HL = 
top of calculator stack and DE = next free space. 

EXP $7A 
Replaces the top of the calculator stack, X, with EXP(X). Returned with DE and HL 
= calculator stack pointers. 

LN $7B 
Replaces top of the calculator stack with its natural logarithm. Returns DE and HL 
= calculator stack pointers. 


ANGLE $7C 


Replaces the top of the calculator stack (X) with Y where Y is greater than or equal 
to -1 and less than or equal to +1 and SIN X = SIN(PI/2 *). 

COS $7D 
Replaces the top of the calculator stack with its cosine. 

SIN $7E 
Replaces the top of the calculator stack with its sine. 

TAN $7F 
Replaces the top of the calculator stack with its tangent. 

ATN $80 
Replaces the top of the calculator stack with its inverse tangent. 

ASN $81 
Replaces the top of the calculator stack with its inverse sine. 

ACS $82 
Replaces the top of the calculator stack with its inverse cosine. 

ROOT $83 
Replaces the top of the calculator stack with its square root. 

TO THE $84 
Replaces the top two numbers on the calculator stack (X, Y) with X**Y. 

RDCH $85 


Wait for character from currently selected channel (calls INCH). Returns character 
code in A. If the current device is a finite device and the endow file arrives, then 
RDCH aborts with Report Code 8. 


SENDCH $86 
Write character whose code is in A to currently selected output channel. 
WRCH $87 


Write character. 


370 


EXROM 


K_SCAN $88 
Keyboard scan. 
P_LFT $89 


Backspace. Sets current column position back 1 for selected device. System 
variable updated is SPOSN, SPOSNL or PPOSN for Screen, Lower Screen or 
Printer, respectively. 


P_RT $8A 
Outputs a space to currently selected device. 
P_NL $8B 


End-of-line. Sets current position to start of next line if screen or outputs printer 
buffer if printer. 


PUTMES $8C 


Output message to currently selected device. DE points to base of message table 
which contains variable length ASCII coded messages. The first byte of the table 
and the last byte of each message must have the most significant bit set. Register 
A contains the message number, from 0 up. 


K_CLS $8D 
CLS command. Executes both CLS and CLLHS. 

SCRL $8E 
Scrolls entire screen (primary display file) up 1 line. 

F_PNT $8F 


POINT function. Processes X,Y parameters from calculator stack to BC. Returns 
unsigned integer value = 0 or 1 on calculator stack reflecting state of pixel at 
coordinates X/Y. 


DRAWLN $90 
Same as DRAW_L but enter with BC register containing coordinates. B=Y and 
С=Х. 

PUT_LN $91 


Output line number as 4 digits, right aligned and space filled to current selected 
output channel. HL points to MSB of 2-byte line number. 
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DISPATCH 


Performs a CALL or JP from any bank to some HOME and EXROM bank routines. 
Push 00 for input and output parameters and the service code to the stack before calling. 


Routine address lookup table only points to low-memory addresses for RAM-resident 
code routines. Do not try to use the Function Dispatcher to access another RAM-resident 


routine if it is located in high memory. 


M6200 LD IX,0 
ADD IX,SP 


PUSH BC 

PUSH AF 

PUSH BC 

PUSH DE 

PUSH HL 

LD E,(IX+2) 

LD D,(IX+3) 

XOR A 

SLA E 

RLD 

RLA 

LD HL, LAST_EXT_SVC 
SLA L 

RLH 

AND A 

SBC HL,DE 

JR NC,D EXT 

LD HL,LAST_RAM_SVC 
SLA L 

RLH 

AND A 

SBC HL,DE 

JR C,D HOME 

LD B,255 

CALL GET STATUS 
LD B,255 

JR D SAVE 


D EXT 

M6238  LD B,254 
LD C,$FE 
JR D SAVE 


D HOME 


M623bE LD B,255 
LD C,0 
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Zero ІХ. 
Set IX to the stack pointer. This holds the position 
of the parameters passed while all the registers 
are saved. 

Reserve a word on the stack. 

Save the registers. 


Copy service code (SVC_CODE) to DE. 

Clear A. 

Shift bit 7 (SVC CODE Jump Flag) of E to carry. 
DE = 2*DE 

A = Jump Flag 

HL = 2*HL 


COMPARE HL AND DE 
IF DE <= HL 


Here for RAM-based services. 
Get status of HOME BANK. 
BC-HOME BANK/HORIZ SELECT 


Here for EXT ROM-based services. 


Set BANK ENABLE parameters for HOME 


D_SAVE 


M6242 


D_CALL 


M6274 


PUSH AF 
PUSH BC 

LD HL,JMPTBL 
SCF 

SBC HL,DE 

LD B,254 

CALL GET_WORD 
EX DE,HL 

POP BC 

POP AF 

AND A 

JRZD CALL 

LD (IX+(-2)),C 

LD (IX+(-1)),B 

LD L,(IX+0) 

LD H,(IX+1) 

LD (IX+3),H 

LD (IX+2),L 

LD (IX+1),D 

LD (IX+0),E 

POP HL 

POP DE 

POP BC 

POP AF 

CALL GOTO BANK 


LD L,(IX+0) 
LD H,(IX+1) 
PUSH HL 
LD L,(IX+4) 
LD H,(IX+5) 
LD (IX+(-2) 
LD (IX+(-1) 
LD L,(IX+6) 
LD H,(IX+7) 
LD (IX+0),L 
IX+1),H 
IX+2),C 
IX+3),B 
),E 
),D 


),L 
),H 


LD ( 
LD ( 
LD ( 
LD (IX+4), 
LD (IX+5), 
POP HL 

LD (IX+6),L 
LD (IX+7),H 
POP HL 
POP DE 
POP BC 


EXROM 


Save jump flag and BANK_ENABLE parameters. 
Calculate address of table entry. 


Read table entry. 


Restore jump flag etc. 


Put bank # and horizontal 

select on stack. 

Save return address. 

Put return address back on stack. 
Set up stack for GOTO_BANK. 


Put address on stack. 
Restore registers. 


Go here if jump flag is not set. 


Set up stack for CALL_BANK 
Put return address in proper location. 


Put PARM_OUT in proper location. 


Put bank number, Horizontal Select 
on stack. 
Put address on stack. 


Restore registers. 
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POP AF 
CALL CALL_BANK Go here if jump flag not set. 
RET 


RAM Interrupt Handler 
Link to the interrupt handler in HOME ROM. 


The user must enter with bank status and Z80 registers intact, with address from point of 
interruption on the stack. This handler saves state, including memory selection, enables 
the HOME bank, updates the frame counter, call the keyboard scan routine in the HOME 
ROM, restores state and returns to the interrupted process. 


This handler is used whenever the interrupt occurs while the Extension ROM is enabled. 
This technique can be used for interruption processing in another bank: for example, if an 
LROS wanted to use the standard system ROM keyboard scanning routines. 


X38INT 
M62AE PUSH AF Save state. 


PUSH HL 

PUSH IX 

LD HL,O 

ADD HL,SP 

PUSH DE 

LD A,(BS_MAX_BANK) 
LD E,A 

LD D,O 

INC DE 

INC DE 

AND A 

SBC HL,DE 

EX DE,HL 

LD IX,0 

ADD IX,DE 

POP DE 

LD SP, IX 

CALL SAVE_STATUS 
PUSH BC 

LD B,$FF 

CALL GET_STATUS 
LD B,$FF 

LD A,C 

AND $F8 

LD C,A 

CALL BANK_ENABLE 
POP BC 

LD HL,(FRAMES) Increment FRAMES counter. 
INC HL 

LD (FRAMES),HL 

LD A,H 

ORL 
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JR NZ,LIT3 
INC (IY-(FRAMES2+Y)) 


LIT3 
M62bED PUSH ВС 
PUSH DE 
CALL KEYBOARD 
POP DE 
POP BC 


PHLAF 
Jump here to POP HL, POP AF, enable interrupts and return. 
M62F4 LD IX,0 

ADD ІХ,5Р 

CALL RESTORE_STATUS 

INC IX 

LD SP, IX 


NMI 
Copy of the NMI handler in HOME ROM. Not used. 


M6307 PUSH AF 
PUSH HL 
LD HL,(NMIADD) 
LD A,H 
ORL 
JR NZ,LNI3 
JP (HL) 


LNI3 

M6311 POP HL 
POP AF 
RETN 
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External Bank Communication 


The bank communication routines below use memory location registers to get and push 
information to banks connected to the external bus. The routines contains portions to do 
standard bank switching, portions to access the expansion hardware and enough 
"smarts" to know when to do either. 


Brzozowski theorized that each expansion bank would have its own version of an SCLD 
with 20 or 28 pins, depending on function, that communicated with the computer. He 
suggested that by communicating data in nybbles, only four data lines were necessary. 


Similarly, only 3 address lines (A13-A15) are needed to decode the registers. 


В5 МАХ ВАМК 

М6315 DEFB $FF Copy of MAX_BANK system variable. Allows 
access to this parameter, even when HOME bank 
does not control chunk 2. 


GET WORD Subroutine 


Performs LD HL, (HL) where HL is an address in bank B. Returns in HL the word from the 
address in HL in the bank specified in B. 


GET_WORD 
M6316 PUSH AF Save registers. 
PUSH BC 
PUSH DE 
CALL GET. NUMBER Get bank number of owner of address. 
PUSH AF 
LD D,B 
LD B,A 
CALL GET_STATUS Get status of owner. 
PUSH BC 
CALL GET_CHUNK Set Horizontal Select for getting at address 
CPL and put in active low format. 
LD B,D 
LD С,А 
CALL BANK_ENABLE Enable address. 
LD E,(HL) Read the word. 
INC HL 
LD D,(HL) 
DEC HL 
EX DE,HL 
POP BC 
POP AF 
LD B,A 
CALL BANK_ENABLE Re-enable owner of address. 
POP DE Restore registers. 
POP BC 
POP AF 
RET 


376 


EXROM 


PUT WORD Subroutine 


Writes the word in DE to the address in HL in the bank specified in B. Equivalent to LD 
(HL), DE where (HL) is an address in bank B. 


This routine contains bugs. The technical manual gives adequate corrections which will 
relocate properly. 


PUT_WORD 

M633B PUSH AF Save registers. 
PUSH BC 
CALL GET. NUMBER Get bank number of owner of address. 
PUSH AF 
LD D,B 
LD B,A 
CALL GET_STATUS Get status of owner. 
PUSH BC 
CALL GET_CHUNK Set Horizontal Select for getting at address 
CPL and put in active low format. 
LD B,D 
LD C,A 
CALL BANK_ENABLE Enable address 
LD (HL),E Write the word. 
INC HL 
LD (HL),D 
DEC HL 
POP BC 
POP AF 
CALL BANK_ENABLE Re-enable owner of address. 
POP BC 
POP AF 
RET 


WRITE Bank Status Register Subroutine 


This routine was intended to write data to the bus expansion unit (BEU) via bank status 
registers. D contains the register address; data is in E. Data is shifted out to the BEU via 
the external expansion bus with the IOAS5 line low (active). 


WRITE BS REG 
M635C PUSH AF Save these registers. 
PUSH BC 
PUSH HL 
LD H,D Put the register address in H. 
LD L,O Set L to zero. HL holds memory mapped bank 


register/address. 


Before using memory locations as registers, preserve the memory contents at those 
locations. 


LD A,(LOWNYB) Get the value at LOWNYB (%С000). 
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PUSH AF 
LD A,(HL) 
PUSH AF 


Save it to the stack. 
Put value at HL in A. 
Save it to the stack. 


Save the contents of the sound chip registers that will be altered. 


LD A,7 

OUT (SADDPT),A 
ІМ A,(SDATPT) 
LD BA 

LD A,$0E 

OUT (SADDPT),A 
ІМ A,(SDATPT) 
LD СА 


Save value of AY-3-8910 register 7. 


Store the value in B. 
Save value of AY-3-8910 register 14. 


Store the value in C. 


Set IOA channel to output (to use ІОА5 on expansion bus). 
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LD A7 

OUT (SADDPT),A 
LD A,$40 

OUT (SDATPT),A 
LD A,$0E 

OUT (SADDPT),A 
XOR A 

OUT (SDATPT),A 
LD A,2 

LD (LOWNYB),A 

LDA,E 

LD (HL),A 

SRAA 

SRAA 

SRAA 

SRAA 

LD (HL),A 

LD A,7 

OUT (SADDPT),A 
LD A,B 

OUT (SDATPT),A 
LD A,$0E 

OUT (SADDPT),A 
LDA,C 

OUT (SDATPT),A 
POP AF 

LD (HL),A 

POP AF 

LD (LOWNYB),A 

POP HL 

POP BC 

POP AF 


Register 7, AY-3-8910 


Send 00 to the AY-3-8910 output port and 
drive IOA5 low on the rear edge connector. 
Load 2 in Ato 

reset nybble steering logic. 

Put data in E, then 

write least significant nybble of data to 

the register address. 


Write the most significant nibble of the 
data. Restore AY-3-8910 registers to their 
original values. 


Restore the memory data back to the 
locations used for registers. 


Restore registers. 


RET 
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READ Bank Status Register Subroutine 


Reads nybbles from the bank switching registers in D (least significant nybble and E (most 
significant nybble), then packs both in to E. 
LSN_ADDR: D, MSN_ADDR: E, BYTE_DATA: C 


READ_BS_REG 
M63AD PUSH AF 


PUSH BC 
PUSH HL 
LD H,D 
LD LO 


LD A,(LOWNYB) 
PUSH AF 

LD A,(HL) 

PUSH AF 

LD A,7 

OUT (SADDPT),A 
ІМ A,(SDATPT) 
LD BA 

LD A,$0E 

OUT (SADDPT),A 
ІМ A,(SDATPT) 
LD СА 


LD A,$40 

OUT (SDATPT),A 
LD A,$0E 

OUT (SADDPT),A 
XOR A 

OUT (SDATPT),A 
LD A,2 

LD (LOWNYB),A 


Save registers. 


Put the register address in H. 

Set L to zero. HL holds memory mapped bank 
register/address. 

Save the data in the memory locations 

that will be used as registers. 


Save the contents of the sound chip 
registers that will be altered 
(registers $07 and $0E). 


Push the values to the stack. 
Set IOA channel to output. 


Load 2 in A to 

reset nybble steering logic. 

Read least significant nybble of register D. 
Move to C. 


Read most significant nybble of register E. 


Combine A and C. 
Return byte data in E 
Get saved AY-3-8910 data and 
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LD A,7 restore sound registers. 
OUT (SADDPT),A 

LD A,B 

OUT (SDATPT),A 

LD A,$0E 

OUT (SADDPT),A 

LD A,C 

OUT (SDATPT),A 

POP AF Restore the memory data back to the 
LD (HL),A locations used for registers. 
POP AF 

LD (LOWNYB),A 

POP HL Restore registers. 

POP BC 

POP AF 

RET 


Get Bank Status Register Subroutine 


Returns current memory selection (horizontal select byte - low active) in C for the bank 
specified in B. Preserves bank number in B for HOME, EXROM or DOCK. This routine is 
meant to be called once for each bank. The HOME bank will appear to “own” chunks 
allocated to expansion banks and this will be misleading without the information on the 
expansion banks. 


GET_STATUS 
M6405 PUSH AF Save registers. 
PUSH DE 
LD A,B Move bank number to A. 
CP $FE Is it EXROM? 
JR Z,GS_EXT Yes, jump ahead. 
CP $FF Is it HOME bank? 
JR Z,GS_HOME Yes, jump ahead. 
AND A Reset flags. 
ЈК 2,65 DOCK Jump ahead for DOCK bank. 
LD D,BNA Send bank number to register $80 (BNA). 
LDE,B 
CALL WRITE_BS_REG 
LD D,HS_LSN Read the $40/$80 register pair (HS). 
LD E,HS_MSN 
CALL READ_BS_REG 
LD A,E Make the Horizontal Select 
CPL to low=true 
LD С,А and put it in C. 
LD D,STA L Read the $A0/$CO register 
LD E,STA O pair (bank status) and 
CALL READ BS REG 
LD B,E put in B. 
JR GS EXIT 
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GS_HOME 
M642D LD BC,0 
JR GS_EXIT 


GS_DOCK 
M6432 ІМ A,(HSR) 


LD C,0 
JR GS EXIT 


GS EXT 
M643A ІМ A,(DECR) 


AND $80 


GS EXIT 
M644A POP DE 


POP AF 
RET 


GET_CHUNK Subroutine 


EXROM 


Return 0 for HOME bank status. 


Return DOCK bank status. 


Get the value from display enhancement register. 
Clear all bits but bit 7. 


Put active bit in bit zero 

Put it in B. 

Return DOCK bank status. 
Complement it. 

Test bit 1. 

And see how it compares to B. 
Put the intersection in B. 


Restore registers and return. 


Computes the chunk for a given address. Returns a single byte mask in A with all bits 0 
except for the one corresponding to the chunk for the address in HL. 


GET_CHUNK 

M6442 PUSH BC 
LD A,H 
LD B,5 


GC_SHIFT 
M6451 SRLA 
DJNZ GC_SHIFT 


Save B. 
Chunk number=high 3 bits of 
H so shift right 3 bits. 


Create mask by rolling A 1 left. 
Chunk number+1 times 
the flag comes from the carry. 
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GC_ROLL 

M6459 RLA 
DJNZ GC ROLL 
POP BC Restore B. 
RET 


GET BANK NUMBER Subroutine 


Returns the bank number currently controlling the address in HL in A. Handles 
shortcomings in GET. STATUS by checking expansion banks first. 


Contains a bug, per the technical manual. Should not be used if there's a chance EXROM 
is in use. 


GET NUMBER 
M645E PUSH BC Save registers. 
PUSH DE 
CALL GET. CHUNK 
LD C,A 
LD A,(BS_MAX_BANK) Get largest bank number. 
AND A 
JR Z,GN. RD DOCK Jump if no exp banks. 
LD B,A 


GN CHECK 
M646B LDE,B Search all exp banks. 
CALL GET. STATUS 
AND C 
JR 2, GN. EXP Found the chunk, so exit the loop. 
DJNZ GN. CHECK 


GN RD DOCK 
M6474 IN A,(HSR) Return DOCK bank status. 
CPL 
AND C 
JR Z,GN. DOCK 
DECC If chunk» 1, then can't be in ext. 
JR NZ,GN. HOME 
IN A,(DECR) Check if in ext bank. 
AND $80 


JR Z,GN. HOME Not in ext bank. 
LD A,$FE In ext bank, return 254. 
JR GN_EXIT 
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GN_HOME 

М648Е LD A,$FF 
JR GN_EXIT 

GN_DOCK 

M6492 XORA 
JR GN_EXIT 

GN_EXP 

M6495 LD A,B 

GN_EXIT 

M6496 POP DE 
POP BC 
RET 


BANK_ENABLE Subroutine 


EXROM 


In HOME bank, return 255. 


Found in DOCK, return О. 


Return exp bank number. 


Restore registers. 


Enables the memory selected (horizontal select byte, low active) in the specified bank. 
Bank number in B, horizontal select byte in C. 


Contains bugs, per technical manual. Manual fix is adequate. Better fix is changing the 
byte at M649A to F3 and byte at M651B to FB. 


Errors in EXROM relocation table prevent this routine from relocating to high memory 


properly. 


BANK_E 
M6499 


NABLE 

PUSH AF 

PUSH BC 

PUSH DE 

PUSH HL 

LD H,B 

LD А(В5 МАХ ВАМК) 
AND A 

JR Z, BE SKIP 

LD D, BNA 

LD E, $0 

CALL WRITE BS REG 
LD D, HSP 

PUSH AF 

LD A,C 

CPL 

LDE, A 

POP AF 

CALL WRITE BS REG 


Save all the registers to the stack. 


Put the bank number in H. 

Get the largest bank number available. 
Clear the flags. 

Jump ahead if there are no expansion banks. 
Send 0 to Bank Number Access register. 
Since the lowest expansion bank number 

is $01, make sure no expansion banks access. 
Send inverted Horizontal Select byte to 
Assigned Bank Number register. 

Deselects the chunks that are about 

to be allocated. 


383 


EXROM 


BE_SKIP 
M64B5 LDA,B 


JR NZ,BE_NTDOCK 
LD AC 

CP $FF 

JR Z, BE_EXT_OK 
IN A,(DECR) 

RES 7,A 

OUT (DECR),A 


BE_EXT_OK 

M64C4 LDA,C 
CPL 
OUT (HSR),A 
JR BE_EXIT 


BE_NTDOCK 

M64CA LD A,B 
CP $FE 
JR NZ,BE_NTEXT 
IN A,(DECR) 


OUT (DECR),A 
BIT7,A 

JR NZ,BE_SET 
IN A, (HSR) 
RES 0,A 

OUT (HSR),A 
JR BE_EXIT 


BE_SET 

M64E4 ІМ A,(HSR) 
SET 0,A 
OUT (HSR),A 
JR BE_EXIT 


BE_NTEXT 
M64ED ІМ A,(HSR) 


OUT (HSR),A 
BIT 0,C 
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Compare bank number DOCK bank ($00). 


Is it the DOCK Bank? 

If no, jump ahead. 

Put the memory select address in A. 
Are we allocating any chunks? 

No, jump ahead. 

Get current value of display enhancement 
register. Enable DOCK bank. 
Set it. 


Send inverted Horizontal Select byte 
to enable the DOCK. 


Check if bank number is 

EXROM bank. 

No? Jump ahead. 

Get the display enhancement register 
value. Check to see if chuck 0 

is assigned in the bank. 


If chunk 0 is assigned to the bank, 
then jump ahead to assign EXROM. 
Otherwise, assign chunk 0 to 

the HOME dock. 


Assign chunk 0 to the EXROM bank. 


Combine the Horizontal Select byte 
with the present contents of port $F4. 
All chunks specified in C will be added 
to those controlled by the HOME bank, 
unless overridden by the expansion 
bank. 


Is chunk 0 being reassigned? 


ЈК NZ,BE_CHK_HOME 
IN A,(DECR) 

RES 7,A 

OUT (DECR),A 

IN A,(HSR) 

RES 0,A 

OUT (HSR),A 


BE_CHK_HOME 


M6506 


BE_EXIT 


M6516 


LD A,B 

CP $FF 

JR Z,BE_EXIT 

LD D,BNA 

LD E,B 

CALL WRITE_BS_REG 
LD D,HS 

LD A,C 

CPL 

LD E,A 

CALL WRITE_BS_REG 


POP HL 
POP DE 
POP BC 
POP AF 
RET 


EXROM 


No, jump ahead. 
Assign port 0 to HOME bank. 


Give port $F4 to the DOCK bank. 


Check if the HOME bank is being 
assigned. 

Yes, done. 

Send the bank number 

to the BNA register. 


Invert the C register to 

make the bits high 

and send to Horizontal Select 
register. 


Restore registers and return. 


Save Bank Status Subroutine 


Used internally to save bank information before making temporary Horizontal Select 
changes. Pushes the status of all banks onto a stack pointed to by IX. 


SAVE_STATUS 


M651E 


PUSH AF 
PUSH BC 
PUSH DE 

IN A,(DECR) 
NOP 

NOP 

LD (IX),A 
INC IX 

IN A, (HSR) 
LD (IX),A 
INC IX 

LD А(В5 MAX BANK) 
AND A 

ЈК Z,SS EXIT 
LD B,A 


Save registers. 


Get the status of EXROM/DOCK. 


Move status to IX location. 

ncrement to next location. 

Get value of Horizontal Select register. 
Move HSR value to IX location. 
ncrement to next location. 

Get maximum number of banks. 

Clear flags. 

f BS MAX BANK is O, exit. 

Set up bank counter. 
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EXROM 


SS LOOP 
M6538 LDE,B 


CALL GET_STATUS 


LD (IX),C 
INC IX 
LD B,E 


DJNZ SS LOOP 


SS EXIT 

M6544 DEC IX 
POP DE 
POP BC 
POP AF 
RET 


Move bank number to E. 

Get status of bank number B. 
Move C to IX location. 
Increment to next location. 
Put E in B. 

Loop until B = 0. 


Back IX up one location. 
Restore these registers. 


Restore Bank Status Subroutine 


Used internally to put all banks back as they were before SAVE STATUS was called. 
Restores the status of all banks from a stack pointed to by IX. 


This will undo any video mode changes made after calling SAVE STATUS as well as other 
port $FF control bits. Contains a bug; fix is in technical manual. 


RESTORE STATUS 

M654A PUSH AF 
PUSH BC 
PUSH DE 
LD A,(IX) 


OUT (DECR),A 


INC IX 

LD A,(IX) 
OUT (HSR),A 
INC IX 


LD A, (BS MAX BANK) 


AND A 
JR Z, RS EXIT 
LD B,A 


RS LOOP 
M6562  LDC,(IX) 


CALL BANK ENABLE 


INC IX 


DJNZ RS LOOP 


RS EXIT 

M656C DEC IX 
POP DE 
POP BC 
POP AF 
RET 
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Save these registers for later. 


Get EXROM status from location IX. 

Write it to the display enhancement register. 
Increment to next location. 

Get dock bank status from location ІХ. 
Write it to the Horizontal Select register. 
Increment to next location. 

Get maximum number of banks. 

Clear flags. 

If zero, exit. 

Set up bank counter. 


Get status of bank from location IX. 
Write bank status of bank number B. 
Increment to next location. 

Loop until B = 0. 


Back IX up one location. 
Restore these registers. 


EXROM 


GOTO_BANK Routine 


Transfers control to the specified address after enabling the memory selected in the 
specified bank. Parameters passed on stack by pushing target address, then bank 
number and memory select prior to calling. Return address is discarded. 


GOTO_BANK 

M6572 LDIX,0 Set IX to the stack pointer. This is done to 
ADD IX,SP get access to items on the stack without popping 

them off the stack (preserving the stack). 

LD (IX+0),C Save BC and trash caller's return address. 
LD (IX+1),B 
LD C,(IX+2) Set parameters for BANK_ENABLE. 
LD B,(IX+3) 
CALL BANK_ENABLE 
POP BC Restore BC. 
POP IX Trash parameters to СОТО. BANK. 
POP IX Get jump address. 

JMPIX 

М658С ЈР (IX) Go to that address. 


Bank Switch Stack 


Used to exchange values and parameters when switching between HOME and EXROM. 
Each time CALL BANK is run, the return and PRM IN go here. 


BS STACK 

M658E DEFB $FESFFSFFSFESFFESFESFFSFF 
DEFB $FESFESFESFFSFESFESFESFF 
DEFB $FESFESFFSFFSFESFFESFESFF 
DEFB $FESFESFESFFSFESFESFESFF 
DEFB $FESFESFFSFFSFESFESFESFF 
DEFB $FESFESFESFFSFESFESFESFF 
DEFB $FESFESFFSFFSFESFESFESFF 
DEFB $FESFESFESFFSFESFESFESFF 


BS SP 


Bank switch stack pointer. 


M65CE DEFW $FFFF 


CALL_BANK 


Like GOTO_BANK except saves current bank status, calls target address, and restores 
status prior to returning to user. Two additional parameters are passed on stack prior to 
doing call out to CALL_BANK. These are PRM_OUT (16 bits) followed by PRM_IN (16 
bits), as described for the Function Dispatcher. 


Clobbers IX. 
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EXROM 


CALL_BANK 
M65DO EX (SP),HL 
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LD IX,(BS. SP) 
DEC IX 


LD (IX+0),H 
DEC ІХ 

LD (IX+0),L 
POP HL 

EX (SP),HL 
DEC IX 

LD (IX+0),H 
DEC ІХ 

LD (IX+0),L 
LD (BS SP),IX 


PUSH DE 
PUSH BC 
PUSH AF 
LD HL,O 
ADD HL,SP 
LD D,H 
LDE,L 

LD A, (BS MAX BANK) 
LD СА 

LD B,O 

INC BC 
INC BC 
AND A 
SBC HL,BC 


LD SP.HL 
LD IX,0 
ADD IX,DE 
EX DE,HL 


LD C,(IX+PRM_OUT) 
LD B,(IX+PRM_OUT) 
LD A, OE 

ADD A,C 

LD СА 

JR NC, CB. NC1 


INC B 


Get return address (the last value pushed to the 
stack); put HL in its place on the stack. 

Put value of the bank switching stack pointer in 
IX. 

Subtract one (to get to the bottom value of the 
bank switch stack). 

Push return address (value in HL) to 

BS STACK. 


Restore HL from the stack. 
Get PRM ІМ; push HL to the stack. 
Push PRM IN (value in HL) to BS STACK. 


Update BS. SP with the IX, pointer to current 
location in BS. STACK. 
Save these registers. 


Zero HL. 
Set HL to the stack pointer. 
Copy stack pointer to DE. 


Get the maximum number of banks. 
Save that number to C. 
Zero B. 


BC = BS MAX ВАМК-2 

Clear carry flag. 

Subtract BC+CF from HL, store result in HL. 

If max bank number is 0, HL = SP. 

Move HL to stack pointer. 

Reset IX. 

Put DE in IX. 

DE, HL now contain destination and src pointers 
for a block move. 

Put PRM. OUT in BC. 

This should have been IX+PRM_OUT+1. 

14 spaces. 

Add PRM_OUT low byte. 

Put that in C. 

BC = PRM, OUT + 14. If A+C < 256, jump ahead 
to CB. NC1. 

A+C > 255, 256 to PRM. OUT. 


CB_NC1 
M6618 


CB_NC2 
M665F 


LDIR 

PUSH DE 
POP IX 

CALL SAVE STATUS 
LD IX, 0 
ADD IX,SP 
LD C,(IX+10) 
LD B,(IX+11) 
CALL BANK_ENABLE 
POP AF 

POP BC 

POP DE 

POP HL 

POP IX 

POP IX 

POP IX 

CALL JMPIX 
PUSH AF 
PUSH BC 
PUSH DE 
PUSH HL 

LD IX,(BS. SP) 
LD C,(IX+0) 
INC IX 

LD B,(IX+0) 
INC IX 

LD (BS SP),IX 
LD IX,0 


JR NC,CB NC2 
INC B 


ADD IX,BC 

PUSH IX 

POP HL 

DECHL 

CALL RESTORE STATUS 


EX DEHL 
INC HL 

LD SP.HL 

LD IX,(BS. SP) 


EXROM 


Make room for bank status. 

Move value in DE (base of the status stack) 
to IX. 

Save the status of all banks. 

Reset IX. 

Put stack pointer in IX. 

Get Horizontal Select byte and 

bank number for BANK ENABLE. 

Enable destination bank. 

Restore these registers. 


Discard params CALL BANK and get 
address. 


Pop PRM IN off BS STACK. 
Update BS SP. 


BC = PRM IN + 8 


IX = SP + PRM IN +9 
HL=IX 


Set HL to source pointer for block move. 


Set DE to destination pointer for block 
move and deallocate space for bank 
status. 


Restore stack pointer. 
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EXROM 


LD C,(IX+0) 

INC IX 

LD B,(IX+0) 

INC IX POP return address of BS. STACK. 
LD (BS SP),IX Update BS SP. 
PUSH BC 

POP IX 

POPHL 

POP DE Restore registers. 
POP BC 

POP AF 

PUSH IX 

RET 


MOVE BYTES Routine 


Used only as a subroutine to XFER BYTES, and is intended to transfer bytes between 
banks when source and destination chunks overlap and the transfer is between two 
different banks. Bytes to move is in DE, direction is in A. 


Contains numerous bugs that are not documented in the technical manual. Due to the 
programmer's misunderstanding of the subtleties of LDIR and LDDR, and the differences 
in their usage, some counters are not properly updated, and some intermediate transfers 
can be made to the wrong part of the stack, destroying critical information. Major bugs 
can be tolerated by putting $73 at M66DF, and $72 at М66Е2. This routine can only be 
used in the LDIR mode; fortunately, the LDDR case is not needed where this is used.5 


MOVE BYTES 

M668C PUSH HL 
PUSH DE 
PUSH BC 
LD C,B 


LD B,(IX--SRC BANK) 
CALL BANK ENABLE 
LD B,D 

LD СЕ 

LD E,(IX+BUF_PTR) 
LD D,(IX+BUF_PTR+1) 
LD L,(IX+SRC_ADDR) 
LD H,(IX+SRC_ADDR+1) 
RLCA 

RRCA 

JR C,MB DOWN!1 
LDIR 

ADD HL,BC 

JR MB UP1 


5 "Mystery of the Missing 253" series. 


390 


MB DOWN1 
M66AD LDDR 


AND A 
SBC HL,BC 


MB UP1 

M66B2 LD (IX+SRC_ADDR),L 
LD (IX+SRC_ADDR+1),H 
POP BC 
POP HL 
PUSH HL 
PUSH BC 
LD B,(IX+DEST_BANK) 
CALL BANK_ENABLE 
LD B,H 
LD C,L 
LD E,(IX+DEST_ADDR) 
LD D,(IX+DEST_ADDR+1) 
LD L,(IX+BUF_PTR) 
LD H,(IX+BUF_PTR+1) 
RLCA 
RRCA 
JR C,MB DOWN2 
LDIR 
ADD HL,BC 
JR MB_UP2 


MB_DOWN2 
M669D9 LDDR 


AND A 
SBC HL,BC 


MB_UP2 

M66DE LD (IX+DEST_ADDR),L 
LD (IX+DEST_ADDR+1),H 
POP BC 
POP DE 
POP HL 
RET 


CREATE_BITMAP Subroutine 


EXROM 


Used only as a subroutine to XFER_BYTES, and is intended to produce a low-true 
"Horizontal Select" byte for all the chunks involved in either the source or destination 


bank for a data transfer. Address is in HL, returns with bitmap is in A. 


Contains undocumented bugs. Due to improper computation of first and/or last bytes in 
a data transfer, this may give an improper result, when the error in computation straddles 
a chunk boundary. These сап be corrected by inserting at 66F3 and following: $0B, $3C, 


$2B. 
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EXROM 


CREATE_BITMAP 
M66E8 LDD,H 
LD E,L 
LD C,(IX+LENGTH) 


LD B,(IX+LENGTH+1) 
LD A,(IX+DIRECTION) 


JR C,CB SUB 
ADD HL,BC 
JR CB CONT 


CB SUB 
M66FA SBC HL,BC 


CB_CONT 
M66FC CALL GET. CHUNK 
CPL 
LD B,A 
EX DEHL 
CALL GET. CHUNK 
CPL 
LD СА 
XORB 
JR Z, CB EXIT 


JR NZ,CB NB1 


CB NB2 
M6716 LDA,B 


JR Z, CB. EXIT 
XORB 

LD B,A 

JR CB NB2 


CB EXIT 


M6720 LDA,B 
RET 
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Save start address. 


Calculate end address. 


If A<O 


Get end chunk bit. 


Get start chunk bit. 


Go here if start and end chunks are not the 
same. 

Put start and end bits together and fill 
between them with zeros. 


Test next bit. 


Jump if we have not found 
first zero. 


Test next bit. 


Found the last zero. 
Otherwise, update bitmap. 


Return bitmap. 


EXROM 


XFER_BYTES Routine 


Intelligent transfer routine to move data between banks, but also intended to allow 
transfer within a single bank, whether or not all the necessary chunks are enabled. 


Copies n bytes from specified source to specified destination in either ascending or 
descending order. Source and destination can be in the same or different banks and can 
be in shadowing chunk, but neither source nor destination can pass any “chunk” (8K) 
boundary since only the chunks containing the starting source and destination addresses 
are explicitly enable. 


Parameters passed on stack by pushing: 
* Source Bank/Destination Bank 

* Source Address 

* Destination Address 

* Length (number of bytes) 

* Direction (0 ascending/-1 descending) 


Contrary to the description in the technical manual, this routine was intended to be able 

to do transfers between larger memory areas than just a single source chunk and a single 
destination chunk. The limitation was probably intended to mask one of the problems in 

this routine. Also, this routine does not relocate properly to high memory. 


This routine requires that the machine stack be in its proper location in the RAM-resident 
code. It was not intended to be able to transfer data into or out of the chunk that 
currently contains the RAM-resident code. If the stack is nearly full, the transfer will be 
aborted, without notifying the CALLing routine. A status flag, intended to perform such a 
warning, is corrupted before completion. 


The technical manual documents only one bug, but several changes are needed to get 
this working properly. Location M6722 gets $00, M672B gets $0B, M676A gets $5F, 
M67C2 gets $2C, and M67FF gets $00. Because this code would normally be used to 
initialize expansion banks, it's possible that this routine would have to be fixed before 
they could be debugged. 


With these fixes, AF is no longer preserved, and A is now returned with a status code. It 
will contain OO if the transfer was successful, and 01 if it was aborted due to insufficient 
stack space. 


Because of the bug in MOVE BYTES, using this routine in the LDDR mode can crash the 
system in some cases. The only time the LDDR mode may really be needed would be 
certain times when the source and destination areas overlap within the same bank. This 
case does not cause the problem, so if the use of the LDDR mode is limited to this case, 
there will be no trouble. 
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EXROM 


XFER_BYTES 


M6722 
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PUSH AF 

PUSH BC 

PUSH DE 

PUSH HL 

LD HL,O 

ADD HL,SP 

LD DE,10 

ADD HL,DE 

EX DE,HL 

LD A,(BS_MAX_BANK) 
LD СА 

LD B,O 

LD HL,O 

ADD HL,SP 

AND A 

SBC HL,BC 

DEC HL 

DEC HL 

PUSH HL 

POP IX 

LD SPIX 

CALL SAVE_STATUS 
PUSH DE 

POP IX 

LD L,(IX+SRC_ADDR) 
LD H,(IX+SRC_ADDR+1) 
CALL CREATE_BITMAP 
PUSH AF 

LD L,(IX+DEST_ADDR) 
LD H,(IX+DEST_ADDR+1) 
CALL CREATE_BITMAP 
LD СА 

POP AF 

LD BA 

LD A,(IX+SRC_BANK) 
LD D,(IX+DEST_BANK) 
CPD 

JR NZ,XB_DIFF_BANKS 
LD A,B 

AND C 

LD BA 

JR XB_DO_MOVE 


Save registers. 


DE points to start of params. 


HL=SP-MAX_BANK-2 

IX points to location to save status. 
Save bank's status. 

IX points to params. 


Get source bitmap. 
Save on stack temporarily. 


Get destination bitmap. 
Set C to destination bitmap. 


Set C to source bitmap. 


Compare src and dest bank numbers. 
Jump if bank numbers diff. 


B= union OR SRC and DEST bitmaps. 


XB_DIFF_BANKS 
M676D LDAB 
ORC 
CP $FF 
JR NZ,XB_OVERLAP 


XB_DO_MOVE 

M6778 LD B,X-SRC BANK) 
LD СЕ 
CALL BANK_ENABLE 
LD L,(IX+SRC_ADDR) 
LD H,(IX+SRC_ADDR+1) 
LD E,(IX+DEST_ADDR) 
LD D,(IX+DEST_ADDR+1) 
LD C,(IX+LENGTH) 
LD B,(IX+LENGTH+1) 
LD A,(IX+DIRECTION) 
RLCA 
RRCA 
JR C,XB REVERSE 
LDIR 
JR XB. EXIT 


XB REVERSE 
M779C LDDR 
JR XB. EXIT 


XB OVERLAP 
М67А0 LD HL,MSTBOT 
PUSH BC 
LD B,255 
CALL GET_WORD 
POP BC 
LD DE,STKSZ 
AND A 
SBC HL,DE 
LD DE, $0020 
ADD HL,DE 
EX DE,HL 
LD HL,O 
ADD HL,SP 
INC DE 
AND A 
SBC HL,DE 
JR NC,XB_SPACE 
LD A1 


EXROM 


Check for overlap between src and 
dest chunks. 


Jump if overlap. 


Select destination bank. 


Select source bank. 


IF А<0 
Move low address first. 


Move high address first. 


HL=address of stack limi 
32 bytes. 


DE=SP_NEW 
HL=SP_OLD 
Compare SP. OLD and SP. NEW 


If SP OLD-SP. NEW > 0 
Return error code. 
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EXROM 


JR XB. EXIT 


XB SPACE 
M67C3 DEC DE 
EX DE,HL 
LD SP.HL Set SP TO SP NEW 
INC DE DE-BUF SZ 
LD A,(IX+DIRECTION) 
LD (IX+BUF_PTR),L 
LD (IX+BUF_PTR+1),H 
LD L,(IX+LENGTH) 
LD H,(IX+LENGTH+1) 


XB_MOVE_LOOP 


M67D6 ANDA HL = bytes left to move. 
SBC HL,DE DE - bytes to move this time. 
JR C,XB. LAST MOVE If less than BUF. SZ BYTES left 


CALL $5200-- MOVE BYTES 
JR XB. MOVE LOOP 


XB LAST MOVE 
M67E5 ADD HL,DE 
EX DE,HL 
CALL $5200+MOVE_BYTES 
EX DE,HL 
LD L,(IX+BUF_PTR) 
LD H,(IX+BUF_PTR+1) 
ADD HL,DE HL = BUF_PTR+BUF_SZ 
LD SP,HL Restore stack pointer. 


XB_EXIT 

M67EE XORA Return code for successful completion. 
LD IX,0 
ADD IX,SP 
CALL RESTORE_STATUS Restore state and return zero code. 
INC IX 
LD SP, IX 
POP HL Restore registers. 


POP IX Clean up PARAMS. 
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EX (SP),IX 
RET 


GOTO EXT INIT 


EXROM 


Intended for use only during initialization. Does an effective JP (HL) to the EXROM. 
Would not work properly if expansion banks were enabled in chunk 0, hence its suitability 
only for system initialization. Address in HL. 


GOTO EXT 

M6815  POPIX 
PUSH AF 
IN A,(DECR) 
SET 7,A 
OUT (DECR),A 
LD A1 
OUT (HSR),A 
POP AF 
JP (HL) 


Blank space 


Discard return address. 


Get the value of the display enhancement 
register. 


BLK1 $1624 to $17FF 
BLK2 $1800 to $1BFF 
BLK3 $1С00 to $1CFF 


FIXTBL 


$00 
$FF 
$00 


Fix-up table for video mode changer. This table defines the locations in RAM which must 
be updated when the dispatcher is moved from chunk 3 to chunk 7 or vice-versa. 
Addresses in the table are defined as chunk 3 addresses. 


This table contains errors that prevent the code from being properly corrected after its 


moved. 


DISPATCH 
X38INT 
GET_WORD 
PUT_WORD 
GET_STATUS 
GET_NUMBER 
BANK_ENABLE 
SAVE_STATUS 
RESTORE_STATUS 
BS_STACK 

BS_SP 
GOTO_BANK 
CALL_BANK 
MOVE_BYTES 
CREATE_BITMAP 


$6200 
$62AE 
$6316 
$633B 
$6405 
$645E 
$6499 
$651E 
$654A 
$658E 
$65CE 
$6572 
$65D0 
$668C 
$66E8 
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EXROM 


M1D00 
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XFER BYTES 
DISPATCH+$32 
DISPATCH+$4D 
DISPATCH+$72 
DISPATCH+$AB 
INT+$0A 

INT+$1F 

INT+$25 

INT+$2E 

INT+$4D 
GET_WORD+$04 
GET_WORD+$0A 
GET_WORD+$0E 
GET_WORD+$14 
GET_WORD+$1F 
PUT_WORD+$03 
PUT_WORD+$09 
PUT_WORD+$0D 
PUT_WORD+$13 
PUT_WORD+$1C 
GET_STATUS+$12 
GET_STATUS+$19 
GET_STATUS+$23 
GET_NUMBER+$03 
GET_NUMBER+$07 
GET_NUMBER+$0F 
BANK_ENABLE+$06 
BANK_ENABLE+$13 
BANK_ENABLE+$1A 
BANK_ENABLE+$75 
BANK_ENABLE+$7D 
SAVE_STATUS+$14 
SAVE_STATUS+$1C 
RESTORE_STATUS+$12 
RESTORE_STATUS+$1C 
BS_SP 
GOTO_BANK+$13 
CALL_BANK+$03 
CALL_BANK+$1D 
CALL_BANK+$29 
CALL_BANK+$4E 
CALL_BANK+$5D 
CALL_BANK+$6A 
CALL_BANK+$72 
CALL_BANK+$80 
CALL_BANK+$96 
CALL_BANK+$A2 
САШ ВАМК+$ВО 
MOVE_BYTES+$08 


$6722 
$6232 
$624D 
$6272 
$62AB 
$62B8 
$62CD 
$62D3 
$62DC 
$62FB 
$631A 
$6320 
$6324 
$632A 
$6335 
$633E 
$6344 
$6348 
$634E 
$6357 
$6417 
$641E 
$6428 
$6461 
$6465 
$646D 
$649F 
$64AC 
$64B3 
$650E 
$6516 
$6532 
$653A 
$655C 
$6566 
$65CE 
$6585 
$65D3 
$65ED 
$65F9 
$661E 
$662D 
$663A 
$6642 
$6650 
$6666 
$6672 
$6680 
$6694 


Should be $650F. 
Should be $6517. 
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MOVE_BYTES+$34 $66C0 
CREATE_BITMAP+$15 $66FD 
CREATE_BITMAP+$1B $6703 
XFER_BYTES+$0E $6730 
XFER_BYTES+$2D $674F 
XFER_BYTES+$2E $6750 
XFER_BYTES+$38 $675A 
XFER_BYTES+$54 $6776 
XFER_BYTES+$5B $677D 
XFER_BYTES+$85 $67A7 
XFER_BYTES+$BA $67DC 
XFER_BYTES+$C1 $67E3 
XFER_BYTES+$D4 $67F6 

DISPATCH 

JMPTBL 


M1EDC DEFW $1795 PUT_LN 
DEFW $2813 DRAWLN 
DEFW $2624 F_PNT 
DEFW $0939 SCRL 
DEFW $08A6 K_CLS 
DEFW $073F PUTMES 
DEFW $0566 P_NL 
DEFW $0554 P_RT 
DEFW $053A P_LFT 
DEFW $02B0 Қ SCAN 
DEFW $0010 WRCH 
DEFW $11ED SENDCH 
DEFW $11CF RDCH 
DEFW $3C6C TO_THE 
DEFW $3C65 ROOT 
DEFW $3C5E ACS 
DEFW $3C4E ASN 
DEFW $3BFD ATN 
DEFW $3BF5 TAN 
DEFW $3BDO SIN 
DEFW $3BC5 COS 
DEFW $3B9E ANGLE 
DEFW $3B2E LN 
DEFW $3ADF EXP 
DEFW $3ACA INT 
DEFW $3ABB INTDIV 
DEFW $3656 FLOAT 
DEFW $35D3 TRUNC 
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DEFW $356E 
DEFW $3489 
DEFW $3468 
DEFW $33D3 
DEFW $33CE 
DEFW $31A1 
DEFW $3193 
DEFW $3160 
DEFW $30F9 
DEFW $30E9 
DEFW $30E6 
DEFW $3059 
DEFW $2FCO 
DEFW $2FAF 


DIVIDE 
TIMES 
MULT 
ADD 
TSSUB 
OUTPUT 
FP2A 
FP2BC 
ININT 
STK_EC 
STK_A 
STKUSN 
DIM 
POPSTR 


DEFW $2EBD LET 


DEFW $2E74 
DEFW $2E70 
DEFW $2C70 
DEFW $29F2 
DEFW $29E5 
DEFW $29В6 
DEFW $28D7 
DEFW $288E 
DEFW $2854 
DEFW $2810 


PAEDCB 
PSHSTR 
FIND_N 
F_INKY 
ЕРІ 
RND 
F_ATTR 
F_SCRN 
EXPRN 
DRAW_L 


DEFW $26DB DRAW 


DEFW $2679 
DEFW $2660 
DEFW $263E 
DEFW $2635 
DEFW $2603 
DEFW $241D 


CIRCLE 
GET_XY 
PLOTBC 
PLOT 
SCRMBL 
HIFLSH 


DEFW $23DE COLOR 


DEFW $2380 
DEFW $226B 
DEFW $222B 
DEFW $217E 
DEFW $2159 
DEFW $2155 
DEFW $201D 
DEFW $2009 
DEFW $1FEB 
DEFW $1FD4 
DEFW $1FBB 
DEFW $1F99 
DEFW $1F39 
DEFW $1F36 
DEFW $1F23 
DEFW $1F1E 


МОТКВО 
ISEO. 
INPUT 

Р 5ЕО 
K_PRIN 
K_LPR 
DEF 
BREAKO 
PAUSE 
RETURN 
CHK_SZ 
GO_SUB 
CLR_BC 
CLEAR 
FIX_U 
FIX Ul 


DEFW $1EF1 
DEFW $1EE4 


JUMP 
CONT 


DEFW $1ED4 RAND 
DEFW $1ECA RESTBC 


DEFW $1E82 
DEFW $1D97 
DEFW $1D55 
DEFW $1C59 
DEFW $1C78 


DATA 
READ 
NEXT 
STOP 
FOR 


DEFW $1AD8 EXCUTE 


DEFW $1A27 
DEFW $1788 
DEFW $1750 
DEFW $1720 
DEFW $16ЕО 
DEFW $16D6 
DEFW $160D 
DEFW $25D0 


SYNTAX 
PUT BC 
DELREC 
RECLEN 
SUBLIN 
FIND L 
FLASHA 
MOVE 


DEFW $25CC FORMAT 


DEFW $25D4 
DEFW $25C8 
DEFW $1465 
DEFW $142A 
DEFW $13BE 
DEFW $139F 
DEFW $1354 
DEFW $12BB 
DEFW $1230 
DEFW $11E1 
DEFW $0D31 


ERASE 
CAT 
OPCHAN 
OPEN 
CLCHAN 
CLOSE 
RESET 
INSERT 
SELECT 
INCH 
INIT 


DEFW $0D1D K NEW 
DEFW $0DOD DESLUG 
DEFW $0A4A PRSCAN 


DEFW $0A23 
DEFW $08EA 
DEFW $08A9 
DEFW $0888 
DEFW $0710 
DEFW $05B2 
DEFW $0500 
DEFW $0A02 
DEFW $0436 
DEFW $03F3 
DEFW $02E1 
DEFW $FFFF 
DEFW $FFFF 
DEFW $FFFF 
DEFW $FFFF 
DEFW $FFFF 


DUMPPR 
CLS 
CLLHS 

R ATTS 
ATTBYT 
SET AT 
SEND TV 
K DUMP 
BEEP 
PARP 


UD K start of HOME ROM services 


RESERVED24 
RESERVED23 
RESERVED22 
RESERVED21 
RESERVED20 


EXROM 
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EXROM 


DEFW $6721 XFER_BYTES? 
DEFW $6722 RESERVED19 
DEFW $65CF CALL_BANK? 
DEFW $65CF RESERVED18 
DEFW $6571 GOTO_BANK? 
DEFW $6571 RESERVED17 
DEFW $6499 BANK_ENABLE 
RESERVED16 
DEFW $645E GET_NUMBER GET_NUMBER 
DEFW $6405 GET_STATUS GET_STATUS 
DEFW $FFFF RESERVED13 
DEFW $FFFF RESERVED12 
DEFW $FFFF RESERVED11 
DEFW $FFFF RESERVED10 
DEFW $00E5 W_BORD 
RESERVED9 
DEFW $0EA3 RESERVED8 
DEFW $0851 SAVE 
RESERVED7 
DEFW $06E5 RESERVED6 
DEFW $05CC LOAD 
RESERVED5 
DEFW $01AB SLVM 
RESERVED4 
DEFW $018D R_EDGE 
RESERVED3 
DEFW $0189 RD_BIT 
RESERVED2 
DEFW $00FC RD_TAPE 
RESERVED1 EXROM services 
DEFW $0068 W_TAPE 
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System Variables 


RAM beginning at 23552 ($5С00) is dedicated to the BASIC System Variables as defined 
in Appendix D of the TS 2068 User Manual and in Appendix B of the Technical Reference. 
The area from the end of the defined variables (STRMNM - $5CCB) to $5EE9H is reserved 
for expansion of the system variables, but is not used by the operating system. 


All values are $0 by default unless otherwise noted. 


KSTATE $5C00 


Used to read the keyboard. Every time the Z80 receives an interrupt (60 times per 
second in 2068), one of the things the computer does is read the keyboard and 
save the result in these eight bytes. These bytes have different uses, and not all 
are useful for a programmer. To understand how it works, we can consider that we 
have two blocks: the upper one (4 bytes from 5C00/23552 to 5С03/23555) and 
the lower опе (4 bytes from 5C04/23556 to 5С07/23559). Normally the lower one 
is used. The upper is used when, while holding a key, a new key is pressed without 
releasing the first one. The logic is as follows: 


If there is no key pressed: 


One key is pressed: 


KS А2) = key value in uppercase, for example 65 if A was pressed. 
KS_C2)=5 
KS_D2) = countdown, varying over time, to automatically repeat the key. 


“( 
“( 
“( 
e (KS В2) = ASCII code of the key pressed. 


If there is a single key pressed or none: 


* (KS A1) = 255 
e (KS_C1) = 0 


If there is more than one key pressed: 


) 

KS_C1) = 5 
)= с 
) 


KS_D1 ountdown. 

KS B1) = ASCII code of the key pressed, taking into account SHIFT or SYMBOL. 
KS_A1 $5C00 
Bit 7=1 means no key stored 
KS_C1 $5C01 
Debounce count 0. 

KS D1 $5C02 


Repeat count 0. 
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KS B1 $5C03 
Character 0. 

KS_A2 $5C04 
Bit 7=1 means no key stored. 

KS_C2 $5C05 
Debounce count 1. 

KS D2 $5C06 
Repeat count 1. 

KS B2 $5С07 
Character 1. 

LASTK $5C08 


Stores newly pressed key. If you are using the system ROM keyboard routines 
from an LROS or autostart machine code AROS and accessing the input character 
code via LASTK, you must initialize the TS 2068 to “1” mode by setting MODE 
($5C41) to zero and bit 3 of FLAGS ($5CBH) to 1. See page 126 of the original 
technical manual. 


REPDEL $23 $5C09 


Time, іп 6Oths of a second, that a key must be held before it repeats. Default is 
35; can be set. 


REPPER $05 $5COA 


Key repeat delay. Delay, in 60ths of a second, between successive repeats of a key 
held down. Default is 5; can be set. 


DEFADD $5COB 


Address of first argument letter of the user-defined function if one is being 
evaluated. 


KDATA $5COD 
Store information of the last color change of the line being edited. 

TVDATA $5COE 
Bytes of color, AT and TAB controls going to display. 

STRMS $5C10 


Addresses of channels attached to streams. This is a 38 byte table (2 bytes each 
for the 19 channels). The table is accessed using (channel # * 2) + $16) as an index 
added to $5С00. The 2-byte value in the table is an index in to the CHANS area 
of memory, which contains the address of the I/O routines for the selected 
channel. If the 2-byte value is zero, the channel is closed. This table is modified via 
the OPEN # and CLOSE # commands. When a channel is opened, the device 
specification is used to obtain the 2-byte value to be inserted. This value is taken 
from the STRMINIT table in the HOME ROM. When channels 0 - 3 are closed, the 
values are restored to those on power-up. All others are cleared to zero. 


CH M3 $100 $5C10 
Chan -3: Channel for keyboard and lower screen. 
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CH_M2 $600 $5C12 
Chan -2: Main screen. 

сн М1 5В00 $5C14 
Chan -1: RAM write. 

CH 0 $100 $5C16 
Chan 0: Output to lower screen. 

CH 1 $100 $5C18 
Chan 1:INPUT command 

CH 2 $600 $5C1A 
Chan 2: PRINT/LIST 

CH 3 $1000 $5C1C 
Chan 3: LPRINT/LLIST 

CH 4 $5C1E 
User chan 1 (4) 

CH_5 $5C20 
User chan 2 (5) 

CH_6 $5C22 
User chan 3 (6) 

CH_7 $5C24 
User chan 4 (7) 

CH_8 $5C26 
User chan 5 (8) 

CH_9 $5C28 
User chan 6 (9) 

CH_10 $5C2A 
User chan 7 (10) 

CH_11 $5C2C 
User chan 8 (11) 

CH_12 $5C2E 
User chan 9 (12) 

CH_13 $5C30 
User chan 10 (13) 

CH_14 $5C32 
User chan 11 (14) 

CH_15 $5C34 


User chan 12 (15) 
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CHARS $3C00 $5C36 


Start address of the characters definition byte, minus 256. 256 is subtracted 
because the first printable code (space) is number 32. 32*8 = 256. 


t is possible to change the value of this variable to point to another address in 
RAM, where you define your own character set. 
RASP $40 $5C38 
Length of warning buzz that sounds when the editing buffer is full. 
PIP $5C39 
Length of keyboard click. 
ERR NR $FF $5C3A 
1 less than the report code. Error number (IY points here) Y -ЕКК NR. 
FLAGS $05 $5C3B 
Various flags to control BASIC. 

SPC 0 Suppress space before tokens 

PR 1 Print to printer, not TV 

LMODE1 2 L mode, not K at current character 

LMODE2 3 L mode, not K at cursor 

TOKEN 4 Token mode: unique to TS 2068.6 

KEYHIT 5 A key has been pressed 

NUM 6 Expression is numerical, not string 

INTPT 7 Interpret rather than check syntax 
TVFLAG $05 $5C3C 
Flags associated with the TV. 

LHS 0 Printing to lower half of screen 

EDIT 1 Outputting line for edit or number for string 

ECHREQ 3 Echo requested if inputting from keyboard 

TVLIST 4 Outputting and automatic listing 

CLHS 5 Clear lower half screen when key pressed 
ERRSP $61FC $5C3D 
Address of item on machine stack to be used as error return. 
LISTSP $61FC $5C3F 
Address of return address from automatic listing. 
MODE $5C41 
Specifies the K, L, C, E, or G cursor.0=KorL,1=F,2=G 
NEWPPC $17FC $5C42 


Line to be jumped to after GOTO/GOSUB or RUN. 


é Timex used this flag, which is unused іп the ZX Spectrum, as a shortcut to 
indicate whether this computer was processing tokens or characters. 
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NSPPC $01 $5C44 


Statement number in line to be jumped to. Poking first NEWPPC and then NSPPC 
forces a jump to a specified statement in a line. Bit 7 off forces jump. 


PPC $17FC $5C45 
Line number being interpreted. 

SUBPPC $01 $5C47 
Number within line of statement being interpreted. 

BORDCR $38 $5C48 


Border color*8. Also contains the attributes normally used for the lower half of the 
screen. 


EPPC $5C49 
Line number of current line in listing (with program cursor). 

VARS $6856 $5C4B 
Starting address of definition of variables (last is 1 byte of $80). 

DEST $6856 $5C4D 


Address of variable in assignment. Matched by template code 1 or 4 (text or 
record). 


CHANS $6840 $5C4F 


Address of the 21-byte table initialized on power-up or execution of a NEW 
command. Supports stream I/O to the four standard system devices (K, S, R and 
P). Each table entry is 5 bytes long and is indexed by the value obtained from the 
STRMS table added to (CHANS)-1. Each entry has the following format: output 
routine address for WRCH (2 bytes), input routine address for WAIT-KEY (2 bytes), 
device type (1 byte). and where appropriate, a file name, additional data and a 
buffer. 


CURCHL $6845 $5C51 


Address of information current being used for input and output. Pointer to data 
for current channel. 


PROG $6856 $5C53 
Address where BASIC program starts in memory. 

NXTLIN $6857 $5C55 
Address of next line in program. 

DATADD $6855 $5C57 
Address of terminator of last data item. 

ELINE $6857 $5C59 
Address of command being typed in (line being edited). 

KCUR $009D $5C5B 


Address of cursor (current character in input buffer). 
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CH_ADD $9A25 $5C5D 
Address of the next character to be interpreted. The character after the argument 
of a PEEK, or the NEWLINE at the end of a POKE statement. Current character 
when syntax checking, etc. 


X PTR $00BB $5C5F 


Address of the character after the ? marker: 1st char not syntactically OK (0 if all 
ОК). Also stores (СН ADD) during read and input. 


WORKSP $6859 $5C61 
Address of temporary workspace. 

STKBOT $6859 $5C63 
Address of bottom of calculator stack. 

STKEND $6859 $5C65 
Address of next free place on calculator stack. 

STKNXT STKEND 
Alias for STKEND. 

BREG $2B $5C67 
Calculator's B register. 

MEM $5C92 $5C68 


Address of area used for calculators memory. Usually MEMBOT but not always. If 
you are using the system ROM calculator routines or any ROM routines that use 
them from an LROS or autostart machine code AROS, you must initialize this 
variable. See page 126 of the original technical manual. 


FLAGS2 $08 $5C6A 
More flags. 

ALOS 0 Automatic listing on screen 

PRLEFT 1 Printer buffer not empty 

L_STR 2 Inside string when doing KB mode in 

LISTCH 

CAPSL 3 Capitals shift lock on 

RETPOS 4 Retype possible after syntax error 

DELREP 5 Delete key repeat (key held down) 
DFSZ $02 $5C6B 
Number of lines (including one blank line) in lower part of screen. 
STOP $0000 $5C6C 
Line number of the top program line in automatic listings. 
OLDPPC $105E $5C6E 
Line to which CONTINUE jumps. 
OSPCC $01 $5C70 


Statement number within line for OLDPPC. 
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FLAGX $5C71 


Flags associated with assignment 
FLE Flexible length assignment required 


UNFND 1 Destination of assignment not found 
INPLN 5 Req input value rather than line of 
program 
NO 6 Reqd type is numeric 
LINPLN 7 Input (input line) rather than straight 
input 

STRLEN $C663 $5C72 
Length of destination when string type. 
TADDR $197E $5C74 
Address of next item in syntax table. 
SEED $FCFE $5C76 
Seed for RND. Set with RANDOMIZE. 
FRAMES $5C78 
Least significant byte of 3 byte frame counter. Incremented every 16ms. 
FRAMES2 $5C7A 
Most significant byte of 3 byte frame counter. 
UDG $FF58 $5C7B 
Address of first user-defined graphic (UDG). 
XCOORD $5C7D 
X coordinate of last point plotted. 
YCOORD $5C7E 
Y coordinate of last point plotted. 
PPOSN $21 $5C7F 
33-column number of printer position. 
PRCC $5C80 


Least significant ($5C80) and most significant ($5C81) bytes of address of next 
character (in printer buffer) for printer. 


ECHOE $1721 $5C82 


33-column number and 24-line number (in lower half ) of end of keyboard input 
buffer. 


DFCC $50CO $5C84 
Address in display file of PRINT position. 

DFCCL $50Е0 $5C86 
Like DFCC, for lower half screen. 

SPOSNCOL $21 $5C88 


33-column number for PRINT position. 
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SPOSNLIN $2 $5C89 
24-row number for PRINT position. 

SPOSNLCOL $17 $5C8A 
Column for next screen output on lower half screen. 

SPOSNLLIN $21 $5C8B 
Line for next screen output on lower half screen. 

SCRCT $0А $5СӘС 


Scroll count. Is always 1 more than the number of scrolls that will be done before 
stopping with scroll?. Decremented for each scroll. 


ATTRP $38 $5C8D 
Current printing attributes, as set by color statements. 


FOREG 0 Least sig bit of foreground color (ink). 
BLUEFG 0 
REDFG 1 
GRNFG 2 
BACKG 3 Least sig bit of background color 
BLUEBG 3 (paper). 
REDBG 4 
GRNBG 5 
HILITE 6 BRIGHT. 
FLASH 7 FLASH. 
MASKP $38 $5C8E 


Use for transparent colors. Any bit that is 1 takes the corresponding attribute bit 
from the screen, not from ATTRP. 


ATTRT $38 $5C8F 
Current temporary printing attributes (see ATTRP for bit definitions). 

MASKT $38 $5C90 
Current temporary printing attributes mask. 

PFLAG $5C91 


Additional flags for printing: temporary flags in even bits, permanent flags in odd 
bits. 


XORCH 0 New chars XORed (OVER) into old. 
INV CH 2 New characters inverted. 

F CB 4 Foreground = complement of bckgd. 
B CF 6 Background = complement of foregd. 


MEMBOT $5C92 


Calculators memory area. Used to store number that cannot conveniently be put 
on the calculator stack. 6 numbers. 

MEMO $5C92 

MEM1 $5C97 

MEM2 $5C9C 

MEM3 $5CA1 

MEMA $5CA6 

МЕМ5 %5САВ 
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NMIADD (USRNMI) $5CBO 
Address of NMI service routine. 
RAMTOP $E100 $5CB2 
Address of last byte of BASIC system area. 
PRAMT $FFFF $5CB4 
Last byte of physical RAM. 
ERRLN $0900 $5CB6 
Pointer to ONERROR line number for GOTO. 
ERRC $5CB8 
Line number in which error occurred. 
ERRS $5CBA 
Statement number in which error occurred. 
ERRT $5CBB 
Error number (report code). 
SYSCON $5EEA $5CBC 
Pointer to the system configuration table. 
MAXBNK $5CBE 
Number of expansion banks in system. 
CRCBN $5CBF 
Current channel bank number. 
MSTBOT $6200 $5CCO 
Address of location above machine stack. 
VIDMOD $5CC2 
Video mode. Non zero if the second display file is open for use. 
ARSBUF $5CC4 
Pointer to AROS buffer. 
ARSFLG $5CC6 
AROS flag. 

BANKCHN 0 I/O through a bank channel. 

AROSQTE 1 Quoted string in AROS. 

AROSKCUR 2 K CUR pointing to AROS. 

AROSDTA 3 DATADD pointing to AROS. 

AROSNXT 4 NXTLIN pointing to AROS. 

AROSDST 6 DEST pointing to AROS. 

AROS 7 1 indicates AROS present. 
ADATLN $5CC7 
Pointer to the start of the current data line (AROS only). 
DTLNLN $5CC8 


Length of the current data line (AROS only). 
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STRMN $5CCB 
Current stream number. Used for bus expansion unit devices. 

BNADDR $5FE9 
Highest priority bank number address. Used for bus expansion unit memory. 
BANKP $5FEB 


Highest bank priority. Used for bus expansion unit memory. 
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Internal Variables, Equates and Registers 


Assigned Bank Number (ABN) $АО 
In setup mode: receives the assigned bank number for the bank presently 
selected by the daisy chain. 


In normal mode: receives the universal deselect byte. Chunks are hi-active. 
As an input, least significant nybble is bank status for "presently accessed bank”. 


BANK 11 
BCMDPT $FD 
Expansion bank “address” port. 

BDATPT $FC 
Expansion bank “data” port. 

BLKLEN $0B 
Data block length, used in load and save routines. 

Bank Number Acceseds (BNA) $80 


As an output register, sets the "presently accessed bank”. On input, it is the most 
significant nybble for register $40. 


Command Register (CMD) $CO 
As an output register, four commands are known: 


* 00 Reset daisy chain and enter the setup mode. 

* 01 Step the daisy chain to the next bank. 

* 02 Reset the nybble steering logic. 

* 04 End the setup mode and enter the normal mode. 


No more than one bit is ever set simultaneously. 
As an input register, it is the most significant nybble for register $A0. 


DATTYPE $00 
Describes the kind of data being saved/loaded. 03 is binary/code. 


Display Enhancement Control Register (DECR) $FF 


The display enhancement control register, in the SCLD, controls selection of 
enhanced video modes, ink selection for 64-column mode, enable/inhibit of the 
17ms interrupt and selection of EXROM or DOCK.’ Also referred to as HREXPT in 
the Timex Sinclair 2068 Third Party Software Guide. 


• Bit 0: 1 enables D. FILE 2 (secondary display file). 

* Bit 1: 1 enables ultra-high-resolution color mode (expanded attributes). 
* Bit 2: 1 enables 64-column display. 

* Bit 3, 4, 5: Paper color for 64-column display. 


7 Section 2.1.8.1 of the technical manual. 
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* Bit 6: 1 disables the keyboard interrupt. 
* Bit 7: 1 enables extension КОМ in the EXROM bank. 


HOLD 

Temporary holding register used for bank switching. 

HOMEROM $FF 
Value used in preparing to switch to the HOME ROM. 

Horizontal Select (HS) $40 


As an output register, it receives the horizontal select byte (hi-active) for the 
"presently accessed bank". 


As an input register, it is the least significant nybble of horizontal select for 
"presently accessed bank". 


Horizontal Select Register (HSR) $F4 
Hardware register in the SCLD that determines which chunks are selected in 
HOME and EXROM/DOCK memory space. Also referred to as DKHSPT in the 
Timex Sinclair 2068 Third Party Software Guide. 


Universal Deselect Byte (HSP) $АО 
Bank select/switch register AO when accessed in normal mode. When the system 
is in "normal mode," a write to register AO sends the “Universal Deselect Byte” to 
all expansion banks. This looks a bit like a Horizontal Select byte, but has 
important differences. Each bit represents a memory chunk, just like a Horizontal 
Select byte, but if a particular bit contains a zero, each Horizontal Select register 
will leave its corresponding bit alone. If a particular deselect bit contains a one, 
then if ANY Horizontal Select byte has a one in that location, it RESETS it. As such, 
the Universal Deselect byte tells all banks which chunks they must give ир.8 


LAST EXT SVC 13 
LAST RAM SVC 24 
LOWNYB %С000 
PRM OUT 8 
SADDPT $F5 
SDATPT $Е6 


8 "Mystery of the Missing 253" series. 
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STA_L ABN 


STA_O CMD 


STATUS 
Nybble whose bit have the following states: 


* Bit 0: Set to 0 if bank cause a maskable interrupt. 

* Bit 1: Not used. 

* Bit 2: Set to 0 if bank is responding to memory read/write. 
* Bit 3: Not used. 


STKSZ $200 
Size of the stack. 


SVC_CODE 


16 bit quantity. Bit 15 is used as a jump flag: if set, the dispatcher will do a 
GOTO_BANK to the specified routine, otherwise it will do a CALL_BANK. 


IY offsets 


OERRNR ERR_NR $00 
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System Configuration Table (SYSCON) 


The area from $5EEA to $5FFF is reserved for the System Configuration Table (SYSCON). 


This table is built during system initialization and contains an 8 byte entry for AROS, a 4 
byte entry for LROS, followed by eleven 24-byte entries for proposed expansion banks 
and an End-Of-Table marker. 


The actual usage of this table is limited to the 12 bytes for software cartridge 
identification. 


AROS (SYSCON, $5EEA) 
The first 8 bytes describe an AROS, if one is available. 


Byte(s) Description 
00 Language type (1 = BASIC, 2 = Machine code) 
01 Cartridge type (2 = AROS) 
02-03 Starting address. 
BASIC AROS, address of first program line. 
Machine CODE AROS, address of first Z80 instruction. 
04 Memory chunk specification. Bits 0-7 represent chunks 0-7, respectively, in the 
DOCK banks in low active format. O if in use, 1 if not in use. 
Note: Bits 0-3 must be set to 1 (marking chunks 0-3 as not in use) for proper 


execution. 

05 Autostart specification. 0 = no autostart, 1 = autostart. 

06-07 Number of byte of RAM to reserve for machine code variables. In LSB/MSB 
format. 


LROS 
The next 4 bytes describe an LROS. 


Byte(s) Description 


00 Not used. 

01 Cartridge type (1 = LROS). 

02-03 Starting address (LSB/MSB). Address to jump after operating system is 
complete. 

04 Memory chunk specification. Bits 0-7 represent chunks 0-7, respectively, in the 


DOCK banks in low active format. 0 if in use, 1 if not in use. 
Note: Bits 3 should be set to 1 (marking chunks 3 as not in use) for the JP to 
address on 02-03 to work. 


Only the two entries above are used by the 2068. The entry below describes the format 
of an expansion bank, had they been produced. 
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EXPANSION BANK ENTRY 
Byte(s) Description 


00 
01 


01-КОМ 02-КАМ 00-іпасбіуе 
Bank #. MSB is set if bank is not yet renumbered 


The following is copied from 0000-0015 of ROM expansion banks 


02 


03-04 


05-06 
07-08 
09-0A 
0В-0С 


OD-OE 
OF-10 
11-12 
13-14 


15 


16 
17 


NOTE: 


For RAM - Chunks available - High true 

For ROM - Channel specifier, if this bank controls a channel. 

This will be an ASCII character, and the initialization software resets bit 5, 
insuring that the letter will be uppercase. 


Address of OPEN routine for the channel. 

(Alternately, 02-04 could have a residual JP instruction, which does no good to 
the SYSCON table, but allows RST 0 to work іп the expansion bank, since the JP 
is also at location 0000 of that bank.) 

Address of the CLOSE routine, if the bank controls a channel. Call with RAM Res 
Code with PRM_OUT=2, and stream number on the stack. 

Timex called this the address of the SELECT routine. It could have been used in 
initialization, and to attach the current channel to this bank. 

An I/O device INPUT routine address. 

An I/O device OUTPUT routine address. 

(Alternately, OA-OC could have contained a residual JP that would have been 
intended to allow RST 08 to work in the ROM bank.) 

Address of Disk Command Handler routine 

Address of device interrupt handler (92 bytes) 

Address of device initialization code (cold start) 

Address of device reset routine (warm start) 

(Alternately, 12-14 could have contained a residual JP that would have been 
used in the ROM bank to make RST 10 work.) 

Device type. Bit 0 = 0 if bootable, if initializable. Bit 1 = 0 if non storage 
device, 1 if storage (disk commands). 

Boot up priority. Low # =high priority. Home bank=80. 

Interrupt Priority. RAM banks get 255. ROM get lower value, which means higher 
priority. 


The Timex document gives this list as ROM addresses, rather than SYSCON 


entries, as given here. The SYSCON displacements must always differ by two 
from the ROM addresses. This difference is not an error. 
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Routine Index 


8-OR-9 

A-FIND-LN 
A-LN-NT-FND 

ABS (FP_ABS) 

ACS (FP_ACS) 
ADD-BACK 
ADD-CH-1 
ADD-CHAR (INSA) 
ADD-REP-6 
ADDEND-O 
ADDITION (FP_ADD) 
ADDN-OFLW 

AKEY 

AKEY-PAUSE 
AKEY-WAIT 
ALL-ADDED 

ALPHA (ALPHAQ) 
ALPHANUM (ALNUMO) 
ARC-END 
ARC-LOOP 
ARC-START 

AROS 

AROS-CART 
AROS-END 
AROS-INIT (CART-INIT) 
AROS-LINE (AR LN) 
AROS-NEXT (AR NXT) 
AROS-NEXT-1 
AROS-NEXT-2 
AROS-NEXT-3 
AROS-NEXT-4 
AROS-OUT-OF-DATA 
ASN (FP. ASN) 

ATN (FP. ATN) 
AUTO-L-1 

AUTO-L-2 

AUTO-L-3 

AUTO-L-4 
AUTO-LIST (TSLIST) 
BANK-255 
BANK-STREAM 

BANK ENABLE 
BC-SPACES (ALLOCBC) 
BE-AGAIN 


BE-END 
BE-H&L-LP 
ВЕ-І-ОК 
BE-IX+0 
BE-IX+1 
BE-IX+2 
BE-IX+3 
BE-OCTAVE 
BE_CHK_HOME 
BE_EXIT 
BE_EXT_OK 
BE_NTDOCK 
BE_NTEXT 
BE_SET 
BE_SKIP 
BEEP 

BEEPER (PARP) 
BIN-DIGIT 
BIN-END 
BITS-ZERO 
BLD-TBL-END 
BLDSCT 
BORDER 
BORDER-1 
BOTH-NULL 
ВК-КЕҮ-1 


BREAK-KEY (BREAK) 


BS_MAX_BANK 
BS_SP 
BS_STACK 
BYTE-COMP 
BYTE-ZERO 
C-ARC-GE1 
C-ENT 
C-R-GRE-1 
C=10*A+C 
CALCULATE 


CALL-BANK (CALL_B) 


CALL-EXPBANK 
CALL-EXT-INIT 
CALL-JUMP 
CALL-REP-J 


CALL-RES-BS-REG 


CALL-RES-REG 
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CALL-RESET-BS-REG 
CALL-SET-RST-56 
CALL-SUB 
CALL-WR-BS-REG 
CALL_BANK 
CART-CHECK 
CART-END 

CASES 

CAT 

CAT-ETC 

СВ-МОРЕ-0 
CB_CONT 

CB_EXIT 

CB_NB1 

CB_NB2 

CB_NC1 

CB_NC2 

CB_SUB 

CD-PRMS1 
CH_ADD+1 (NEXTCH) 
CHAN-FLAG (SET_HL) 
CHAN-K (KANALK) 
CHAN-OP-1 
CHAN-OPEN (SELECT) 
CHAN-P (KANALP) 
CHAN-S (KANALS) 
CHAN-S-1 (KANS1) 
CHANGE-VIDEO (CHNG. V) 
CHECK-CONF 
CHECK-END (ENDO) 
CHK-# 
CHK-KEWTBL2 
CHK-RENUM-BIT-LOOP 
CHK-SYSCN-AROS 
CHRS (FP_CHR) 
CHRSET 

CIRCLE 

CK-A-4 

CK-A-5 

CK-A-6 

CK-END 

CKEXPBNK 

СІ-09-1 (STK_O) 
CL-ADDR 

CL-ALL (CLS) 

CL-ATTR 

CL-CHAN 
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356 
339 
115 
156 
111 
349 
334 
278 
292 
166 
270 
270 
270 
160 

70 
120 

44 

40 

44 

40 


CL-CHAN-A 
CL-DF-LOOP 
CL-LINE (CLS_B) 
CL-LINE-1 

CL-LINE-2 

CL-LINE-3 

CL-SC-ALL (SCRL1) 
CL-SCR-1 

CL-SCR-2 

CL-SCR-3 
CL-SCROLL (SCRLB) 
CL-SET (STTVC) 
CL-SET-1 

CL-SET-2 

CLASS 05 (TEMS) 
CLASS-00 (TEMO) 
CLASS-01 (TEM1) 
CLASS-02 (TEM2) 
CLASS-03 (TEM3) 
CLASS-04 (ТЕМ4) 
CLASS-09 (TEM9) 
СІ.А55-ОВ (TEM11) 
CLEAR 

CLEAR-1 

CLEAR-1A 

CLEAR-2 
CLEAR-DFILE2 
CLEAR-MAX-BANK 
CLEAR-PRB (CLEAR-PRB) 
CLEAR-RUN (CLR_BC) 
CLEAR-SP (DEL_C) 
CLEAR-SYSCONF 
CLOSE 

CLOSE-1 

CLOSE-2 (CLCHAN) 
CLOSE-DFILE (CLDFIL) 
CLOSE-FIX-BL-LOOP 
CLOSE-STR (CLOSTR) 
CLOSE-XFER-DISPACHER 
CLOSE-XFER-UDG 
CLS (K CLS) 

CLS-1 

CLS-2 

CLS-3 

CLS-LOWER (CLLHS) 
CO-CHANGE 
CO-TEMP-1 


CO-TEMP-1 (GR_COL) 
CO-TEMP-3 
CO-TEMP-4 (COLITM) 
CO-TEMP-5 (CO-TEMPS) 
CO-TEMP-6 
CO-TEMP-7 (COLOR) 
CO-TEMP-8 
CO-TEMP-9 
CO-TEMP-A 
CO-TEMP-B 
CO-TEMP-C (HIFLSH) 
CO-TEMP-D 
CO-TEMP-E 

CODE (FP_CODE) 


COMMAND CLASS TABLE (CLASTBL) 


115 

CONTINUE (CONT) 
CONTRO 

COPY (K_DUMP) 
COPY-1 

COPY-2 

COPY-3 
COPY-BUFF (DUMPPTR) 
COPY-END 
COPY-L-1 

COPY-L-2 

COPY-L-3 

COPY-L-4 

COPY-L-5 
COPY-LINE (PRSCAN) 
COS (FP_COS) 
COUNT-ONE 
CP-LINES (CP_BC) 
CREATE_BITMAP 
CSTRTA 

CV-ABORT 

CV-END 
CV-MODE-0 
CV-MODE-0-2 
D-L-DIAG 
D-L-HR-VT 


151 
151 
151 
152 
152 
152 
153 
153 
153 
153 
154 
154 
154 
280 


131 
24 
45 
45 
46 
46 
46 
46 
47 
47 
47 
47 
48 
47 

287 

252 
93 

392 
81 

358 

358 

357 

358 

177 

177 

177 

177 

178 

177 

219 

219 


D-RPORT-C 

D-RUN 

D-SIZE 

D CALL 

D EXT 

D HOME 

D SAVE 

DATA 

DATA-1 

DATA-2 

DE,(DE+1) 
DEC-JR-NZ (FP_LOOP) 
DEC-RPT-C 
DEC-STO-1 
DEC-TO-FP (STKUSN) 
DECIMAL 

DEF-FN (DEF) 
DEF-FN-1 
DEF-FN-2 
DEF-FN-3 
DEF-FN-4 
DEF-FN-5 
DEF-FN-6 
DEF-FN-7 
DEL-SORT 
DEL-SORT-1 
DELETE 

DELETE (FP_DROP) 
DELETE-ERROR 
DELETE-FP2BC 
DELETE-LINES 
DELETE-LINES-1 
DEVICE-COMMAND 
DIFFER 

DIM 

DIM-CLEAR 
DIM-SIZES 
DISPATCH 
DIV-34TH 
DIV-LOOP 
DIV-START 
DIVISION (FP_DIVIDE) 
DIVN-EXPT 
DL-LARGER 
DL-X-GE-Y 
DO-STREAMS 
DOSAVE 


218 
219 
219 
373 
372 
372 
373 
129 
129 
130 
211 
281 
222 
222 
222 
222 
137 
137 
138 
138 
138 
138 
138 
139 
140 
140 
140 
261 
141 
141 
140 
140 
158 

96 
218 
221 
221 
372 
252 
251 
252 
251 
248 
177 
176 
155 
160 
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DOSAVE-DF2 
DOUBLE-A 
DR-3-PRMS 

DR-PRMS 

DR-SIN-NZ 

DRAW 

DRAW-LINE (DRAW-L) 
DRAW-SAVE 
DRAWLN 

DRW-STEPS 

E-DIVSN 

E-END 

E-FETCH 

E-FORMAT 
E-FP-JUMP 

E-L-1 

E-LINE-NO (LINNG) 
E-LOOP 

E-SAVE 

E-TO-FP (XEY) 
E-TST-END 

EACH-S-1 

EACH-S-2 

EACH-S-3 

EACH-S-4 

EACH-S-5 

EACH-S-6 
EACH-STMT (SUBLIN1) 
ED-AGAIN 

ED-BLANK 
ED-C-DONE 
ED-C-END 
ED-CONTR 

ED-COPY 

ED-CUR 

ED-DELETE (DELETECMD) 
ED-DOWN (CSR_DNCMD) 
ED-EDGE 

ED-EDGE-1 
ED-EDGE-2 

ED-EDIT (EDITCMD) 
ED-END 

ED-ENTER (CRCMD) 
ED-ERROR 

ED-FULL 

ED-GRAPH (ED-GRAPHIC) 
ED-IGNORE 
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160 
260 
170 
171 
170 
170 
176 
175 
176 
173 
226 
227 
226 
223 
224 
97 
97 
226 
226 
226 
227 
94 
94 
94 
94 
94 
95 
94 
48 
57 
57 
57 
49 
56 
51 
52 
51 
52 
53 
53 
50 
52 
52 
54 
57 
54 
52 


ED-KEYS 

ED-LEFT (CSR_LTCMD) 
ED-LIST 

ED-LOOP 

ED-LOOP-1 

ED-RIGHT (CSR_RTCMD) 
ED-SPACES 

ED-STOP 

ED-SYMBOL 

ED-UP (CSR UPCMD) 
EDITING KEYS TABLE 
EDITOR (EDIT. K) 
END-CALC (FP. QUIT) 
END-COMPL 
END-TESTS 
ENT-TABLE 

ERASE 

ERRMSGS 

ERROR-1 (RST8) 
ERROR-2 (GETERNR) 
ERROR-3 (LE3) 
EX-OR-NOT 
EXCHANGE (FP. SWAP) 
EXINIT 

EXIT 

EXP 

EXPBK-CHAN 
EXPBNK-DEV 
EXPBNK-RESET 


EXPT-1NUM (TEM6, CLASS-06) 
EXPT-2NUM (TEM8/CLASS-08) 
EXPT-EXP (TEM10, CLASS-0A) 


EXROM-STARTUP 
EXTEND 

F-FOUND 
F-FOUND-RET 

F-L&S 

F-L&S-1 

F-L&S-2 

F-LOOP 

F-REORDER 

F-USE-1 

FETCH-NUM (OPTNO) 
FETCH-TWO (SUMSLD) 
FIND-I-1 

FIND-INT1 (INS 01) 
FIND-INT2 (FIX U) 


275 
266 
334 
283 
283 

71 
159 
157 
118 
118 
119 
300 
346 
123 
124 
122 
123 
123 
123 
121 
121 
120 
239 
133 
132 
133 


FIND-OFFSET-ADDR 
FIRST-3D 
FN-SKPOVR (NXT_HL) 
FOR 

FORM-EXP 

FORMAT 

FP-0/1 (STBOOL) 
FP-A-END 
FP-CALC-2 (FP. ХЕОТВ) 
FP-DELETE 

FP-TO-A (FP2A) 
FP-TO-BC (FP2BC) 
FP_SGN 

FPCONST 
FPJMPTBL 

FREE 

ЕКЕЕ-1 

FRST-LESS 
FULL-ADDN 
G-LOOP 
GB-MODE-0 

GC ROLL 

GC SHIFT 
GEN-ENT-1 
GEN-ENT-2 
GET-A-LINE (GETAL) 
GET-ARGT (FP. ANGLE) 
GET-CART-DATA 
GET-CHAR (CURCH) 
GET-GOSUB-ADDR 
GET-HL*DE 
GET-MEM-0-5 
GET-NEXT-ARG 
GET-PARAM 
GET-PARAM 
GET-REGISTERS 
GET-SYSCONF-TABLE 
GET-TOKEN-OFFSET 
GET. CHUNK 

GET. NUMBER 

GET. STATUS 

GET. WORD 

GN, CHECK 

GN. DOCK 

GN. EXIT 

СМ EXP 

GN, HOME 


GN. RD DOCK 
GO-NC-MLT 
GO-SUB (GO. SUB) 
GO-TO (JUMP) 
GO-TO-2 
GOTO-BANK 
GOTO-BANK (GOTO B) 
GOTO. BANK 
GOTO EXT 

GRE.8 

GREATER-0 (FP. PLUSO) 
GS DOCK 

GS EXIT 

GS EXT 

GS HOME 
HL-AGAIN 

HL-END 

HL-LOOP 
HL=HL*DE 
І-САККҮ 
I-RESTORE 

IF (TSIF) 

IF-1 

IN (FP. IN) 
IN-ASSIGN 
IN-CHAN-K (NOTKBO) 
IN-ITEM-1 (I SEO) 
IN-ITEM-2 
IN-ITEM-3 
IN-NEXT-1 
IN-NEXT-2 
IN-PK-STK 

IN-PR-1 

IN-PR-2 

IN-PR-3 
IN-PROMPT 
IN-STOP 

IN-VAR-1 

IN-VAR-2 

IN-VAR-3 

IN-VAR-4 

IN-VAR-5 

IN-VAR-6 
INCREASE-BANKS 
INDEXER (SEARCH) 
INDEXER-1 
INIT-EXPROM-BANK 


382 
245 
135 
131 
132 
338 
360 
387 
397 
285 
272 
381 
381 
381 
381 
245 
245 
245 
245 
211 
211 
121 
121 
269 
149 
151 
146 
147 
147 
149 
149 
269 
147 
148 
148 
147 
150 
148 
148 
148 
148 
149 
149 
351 

78 

77 
346 
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INITSYSVAR (NEW-INIT-2) 
INPUT 

INPUT-1 

INPUT-2 

INPUT-AD (INCH) 
INT (FP. INT) 
INT-CASE 

INT-EXP1 

INT-EXP2 
INT-FETCH (INT2COMPL) 
INT-STORE (STDE S) 
INT-TO-FP (ININT) 
INVALID-IO 
IS-COMMA 

IX-END 

JMPIX 

JMPTBL 

JUMP (FP_JUMP) 
JUMP-2 

JUMP-C-R 
JUMP-END 
JUMP-TRUE (FP_IFJUMP) 
K-8-&-9 

K-@-CHAR 
K-CH-SET 
K-DECODE (CHCODE) 
K-DIGIT 

K-E-LET 

K-END 

K-GRA-DGT 
K-KLC-DGT 
K-KLC-LET 
K-LOOK-UP 

K-MAIN 

K-NEW 
K-REP-DELAY 
K-REPEAT 
K-ST-LOOP 

K-TEST (K_BASE) 
K-TOKENS 

KEWTBL 

KEWTBL2 
KEY-3KEYS 

KEY-BITS 

KEY-CHAN 
KEY-CONTR 
KEY-DATA 
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336 
146 
146 
146 
69 
282 
268 
210 
210 
227 
228 
225 
83 
81 
255 
387 
399 
281 
281 
116 
337 
281 
17 
18 
13 
15 
16 
16 
14 
17 
17 
16 
16 
15 
13 
14 
14 
13 
15 
16 
105 
106 
12 
12 
56 
55 
56 


KEY-DONE 
KEY-DONE 
KEY-FLAG 
KEY-INPUT (IN-K) 
KEY-INT 

KEY-LINE 
KEY-M&CL 
KEY-MODE 
KEY-NEXT 
KEY-SCAN (K_SCAN) 
KEYB-EXTVID 
KEYB-NORMVID 
KEYBOARD (UPD_K) 
KLOOK 

L-ADD$ 

L-CHAR 

L-DELETE$ 
L-EACH-CH 
L-ENTER 

L-EXISTS 

L-FIRST 

L-IN-W/S 

L-LENGTH 

L-NEW$ 

L-NO-SP 
L-NUMERIC 
L-SINGLE 

L-SPACES 

L-STRING 
L-TEST-CH 

LAST 

LD-8-BITS 
LD-BLOCK (R_TAPE1) 
LD-BREAK 
LD-BYTES (R_TAPE) 
LD-CH-PR 
LD-CONT-1 
LD-CONT-2 
LD-CONTRL (LOAD) 
LD-DATA 
LD-DATA-1 

LD-DEC 

LD-DELAY 
LD-EDGE-1 (R EDGE) 
LD-EDGE-2 (RD BIT) 
LD-FETCH (NEXT L) 
LD-FLAG 


300 
300 


216 
213 
214 
212 
216 
214 
218 
216 
216 
217 
212 
214 
214 
213 
217 
213 
291 
306 
322 
304 
304 
320 
322 
322 
322 
323 
324 
306 
307 
307 
307 

91 
305 


LD-LEADER 
LD-LOOK-H 
LD-LOOP 
LD-MARKER 
LD-NAME 

LD-NEXT 

LD-PROG 
LD-PROG-1 
LD-SAMPLE 
LD-START 

LD-SYNC 

LD-TYPE 
LD-UP-PROG 
LD-VERIFY 

LD-WAIT 

LEN (FP_LEN) 
LESS-0 (FP. MINUSO) 
LESS-MASK 

LET 

LINE-AD-1 
LINE-ADDR (FIND 1) 
LINE-DRAW 
LINE-END 
LINE-NEW 

LINE-NO (GET LN) 
LINE-NO-A 
LINE-RUN (EXECUTE) 
LINE-SCAN 
LINE-SCAN-1 
LINE-USE 


LINE-ZERO (DUMMYLINE) 


LIST (K LIST) 

LIST-1 

LIST-2 

LIST-3 

LIST-4 

LIST-5 

LIST-ALL 

LIST-ALL-1 

LIT3 

LLIST (K_LLST) 

LN (FP_LN) 
LN-STORE (DE_HL) 
LNI3 

LOC-MEM (ARRAY) 
LOG(24A) 
LOOK-P-1 


305 
319 
305 
306 
320 
306 
324 
325 
307 
304 
305 
319 
357 
306 
304 
280 
273 
255 
212 
93 
93 
175 
113 
113 
76 
76 
112 
109 
110 
114 
76 
86 
86 
87 
87 
87 
87 
87 
87 
375 
86 
284 
91 
375 
264 
229 
124 


LOOK-P-1A 
LOOK-P-2 
LOOK-PROG (SKIP) 
LOOK-VARS (FIND_N) 
LPO 

LPRINT (K_LPR) 
MAIN-1 (LED18) 
MAIN-2 
MAIN-3 
MAIN-4 
MAIN-5 
MAIN-6 
MAIN-7 
MAIN-8 
MAIN-9 
MAIN-ADD 
MAIN-ADD1 
MAIN-ADD2 
MAIN-EXEC 
MAIN-G 
MAKE-EXPT 


MAKE-ROOM (INSERT) 


MASK-INT 
MB DOWN!1 
MB DOWN2 
MB UP1 
MB UP2 
ME-CONTRL (MERGE) 
ME-ENT-1 
ME-ENT-2 
ME-ENT-3 
ME-ENTER 
ME-NEW-L2 
ME-NEW-LP 
ME-OLD-L1 
ME-OLD-LP 
ME-OLD-V1 
ME-OLD-V2 
ME-OLD-V3 
ME-OLD-V4 
ME-OLD-VP 
ME-VAR-L1 
ME-VAR-L2 
ME-VAR-LP 
MLT-LOOP 
MOVE 
MOVE-FP (FP. DUP) 


124 
125 
124 
199 


142 


MOVE-TO-$6000 
MOVE_BYTES 
MULT-LONG 
MULT-OFLW 
MULT-RSLT 

MULTIPLY (FP_TIMES) 
N-MOD-M (FP. INTDIV) 
N-NEGTV 
NA-CK-INIT 
NA-LOOP-1 
NEAR-ZERO 
NEG-BYTE 
NEG-TEST 

NEGATE (FP. NEGATE) 
NEW (K NEW) 
NEW-DATA-ADDR 
NEW-DEV-LOAD 
NEW-DEV-SAVE 
NEWDEV 

NEXT 

NEXT-1 

NEXT-2 

NEXT-2NUM (DYADIC) 
NEXT-CHAR 
NEXT-CHUNK 
NEXT-LINE 
NEXT-LOOP 
NEXT-O-1 

NEXT-O-2 

NEXT-O-3 

NEXT-O-4 

NEXT-O-5 

NEXT-ONE (RECLEN) 
NEXT-POINTER 
NIL-BYTES 

NMI 

NO-&-NO (FP_AND) 
NO-ADD 

NO-BANK 


126 
95 
95 
95 
96 
96 
95 
74 

255 

375 

274 

247 

346 


NO-L-EQL (FP. LE, ЕР GE, ЕР NE, 


ЕР GT, FP LT, ЕР EQU, FP STLE, 


ЕР 5ТСЕ, ЕР. STNE, ЕР STGT, 


ЕР STLT, FP_STEQU) 
NO-RESET 
NO-RSTORE 
NORMAL-CLEAR 
NORMALISE (NORML) 
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275 

5 
252 
134 
249 


NORML-NOW 
NORMSVAR (NEW-INIT) 
NOT (FP_NOT) 
NOT-AROS 
NOT-AUTOSTART 
NOT-BIN (STKNUM) 
NU-OR-STR 
NUMBER 

NUMERIC (DIGITQ) 
NXT-DGT-1 
NXT-DGT-2 

OFFSET TABLE (KEWTBL) 
OFLOW-CLR 
OFLW1-CLR 
OFLW2-CLR 
ON-ERR-CONT 
ON-ERR-GO-TO 
ON-ERR-RESET 
ON-ERR-RETURN 
ONE 

ONE-SHIFT 
ONE-SPACE (INSI) 
OPEN 

OPEN-1 (OPEN-IT) 
OPEN-2 (OPCHAN) 
OPEN-3 
OPEN-DFILE (OPDFIL) 
OPEN-END 
OPEN-FIX-BL-DONE 
OPEN-FIX-BL-LOOP 
OPEN-K 

OPEN-P 

OPEN-S 
OPEN-XFER-DISPATCHER 
OPEN-XFER-UDG 
OPPRI 

OPTAB 

OPTBL 

OR (FP_OR) 
OTHER-STR 

OUT (K_OUTPUT) 
OUT-C-1 

OUT-C-2 

OUT-CH-1 
OUT-CH-2 
OUT-CH-3 
OUT-CHAR 


250 
336 
273 
74 
336 
222 
275 
89 
224 
223 
225 
105 
250 
248 
248 
139 
139 
139 
139 
291 
240 
73 
82 
82 
82 
83 
352 
85 
353 
353 
84 
85 
84 
353 
352 
193 
84 
193 
274 
277 
132 
90 
91 
92 
93 
93 
92 


OUT-CHAR-1 
OUT-CHAR-2 
OUT-CODE (PUTDIG) 
OUT-CURS (PR. CUR) 
OUT-FLASH (FLASHA) 
OUT-LINE (PUT. SR) 
OUT-LINE1 
OUT-LINE2 (PUT) 
OUT-LINE3 
OUT-LINE4 
OUT-LINES 
OUT-LINE6 
OUT-NUM-1 (PUT. BC) 
OUT-NUM-2 (PUT LN) 
OUT-NUM-3 
OUT-NUM-4 
OUT-SP-1 

OUT-SP-2 
OUT-SP-NO 
P-INT-STO (STDE U) 
PARAMETER TABLE 
PASS-2 

PASS-BY 
PASS-LOOP 

PAUSE 

PAUSE-1 

PAUSE-2 
PAUSE-END 

PEEK (ЕР PEEK) 
PERMS (TEM7) 
PF-ALL-9 

PF-BITS 

PF-BYTES 
PF-COUNT 
PF-DC-OUT 
PF-DEC-0S 
PF-DIGITS 
PF-E-FRMT 
PF-E-POS 
PF-E-SBRN 
PF-E-SIGN 
PF-FR-DGT 
PF-FR-EXX 
PF-FRACTN 
PF-FRN-LP 
PF-INSERT 
PF-LARGE 


92 
92 
69 
90 
90 
88 
88 
88 
88 
89 
89 
89 
97 
98 
98 
98 
92 
91 
91 
227 
106 
359 
130 
359 
136 
136 
136 
137 
269 
119 
234 
233 
233 
236 
237 
237 
234 
237 
237 
236 
237 
235 
235 
234 
235 
234 
232 


PF-LOOP 
PF-MEDIUM 
PF-MORE 
PF-NEGTVE 
PF-NOT-E 
PF-OUT-DT 
PF-OUT-LP 
PF-POSTVE 
PF-R-BACK 
PF-RND-LP 
PF-ROUND 

PF-SAVE 

PF-SMALL 

PF-TEST-2 

PHLAF 

РІ 

РІ-1 

PIXEL-ADD (SCRMBL) 
PL-TST-IN 

PLOT 

PLOT-END 
PLOT-LOOP 
PLOT-SUB (PLOTBC) 
PO-1 

PO-1-OPER 
PO-2-OPER 

PO-ABLE (PO-CHAR) 
PO-ANY 

PO-ANY-C 
PO-ANY-NOT-DEL 
PO-AT-ERR 
PO-AT-SET 

PO-ATTR (ATTBYT) 
РО-АТТК-1 
РО-АТТК-2 
PO-BACK-1 (P_LFT) 
РО-ВАСК-2 (PR-CUR-L-2) 
PO-BACK-3 (PR-CUR-L-3) 
PO-CHANGE (CHANGE) 
PO-CHAR 
PO-CHAR-2 
PO-CHAR-3 
PO-COMMA (P_COMMA) 
PO-CONT 

PO-EACH 

PO-ENTER (P_NL) 
PO-F-PR 


a 


PO-FETCH (LDTVCU) 
PO-FILL 

PO-GR-1 (MKBLKGR) 
PO-GR-2 

PO-GR-3 

PO-MSG (PUTMES) 
PO-QUEST 
PO-RIGHT (P_RT) 
PO-SAVE (PR_TV2) 
PO-SCR (TVFUL) 
PO-SCR-2 

PO-SCR-3 
PO-SCR-3A 
PO-SCR-4 
PO-SCR-4A 
PO-SCR-4B 


PO-SEARCH (FINDMSG) 


PO-SPACE 

PO-ST-E 

PO-ST-PR 

PO-STEP 

PO-STORE (STTVCU) 
PO-T 


PO-T&UDG (PO-TOKUDG) 


PO-TAB 

PO-TABLE 
PO-TOKENS (PRTTOK) 
PO-TR-SP (PO-TRSP) 
PO-TV-1 

PO-TV-2 

POINT-LP 
POINT-SUB (F_PNT) 
POINTERS (REMGSZ) 
POKE 

PR-ALL 

PR-ALL-1 

PR-ALL-2 

PR-ALL-3 

PR-ALL-4 

PR-ALL-5 

PR-ALL-6 

PR-AT-TAB 
PR-END-Z 
PR-ITEM-1 
PR-ITEM-2 
PR-ITEM-3 
PR-POSN-1 
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PR-POSN-2 
PR-POSN-3 
PR-POSN-4 
PR-ST-END (TERMQ) 
PR-STRING 
PRB-BYTES 
PREP-ADD 
PREP-M/D 

PRINT (K_PRIN) 
PRINT-1 

PRINT-1A 

PRINT-2 (P_SEQ) 
PRINT-3 

PRINT-4 

PRINT-A-1 (WRCH) 
PRINT-A-2 (SENDCH) 
PRINT-CR 

PRINT-FP (OUTPUT) 
PRINT-OUT (SENDTV) 
PTR-DONE 
PTR-NEXT 
PUT_WORD 
R-I-STORE 
RAM-DONE 
RAM-FILL 
RAM-READ 
RAM-SET 
RAMCHECK 

RAND-1 
RANDOMIZE (RAND) 
RE-ENTRY 
RE-ST-TWO 
RE-STACK (FLOAT) 
READ 

READ-1 

READ-1A 

READ-2 

READ-3 
READ-CART-DATA 
READ-IN (FP. INKEY) 
READ-N 
READ-STICK 
READ BS REG 
REBOOT 

REC-EDIT (X T HL) 
RECLAIM-1 (DEL DE) 
RECLAIM-2 (DELREC) 


131 


260 
255 
256 
126 
129 
129 
129 
126 
127 
280 
129 
182 
379 
300 

77 

96 

96 


REMOVE-FP (DESLUG) 
REPORT J (INVI) 
REPORT-O 

REPORT-1 

REPORT-2 
REPORT-2 
REPORT-3 
REPORT-4 (ERR4) 
REPORT-5 (ЕККОК-5) 
REPORT-6 
REPORT-6 (ERR6) 
REPORT-7 
REPORT-8 
REPORT-8 (BADBAS) 
REPORT-A 
REPORT-A 
REPORT-A 
REPORT-B 
REPORT-B 
REPORT-B 
REPORT-B 
REPORT-C 
REPORT-C 
REPORT-D 
REPORT-D 
REPORT-E 
REPORT-F 
REPORT-F 
REPORT-G (UNKEDIT) 
REPORT-H (ERRH) 
REPORT-I 

REPORT-J 

REPORT-J 

REPORT-J 

REPORT-J 
REPORT-K 
REPORT-L 
REPORT-M 
REPORT-N 
REPORT-N 
REPORT-O 
REPORT-O 
REPORT-O (ERRO) 
REPORT-P 
КЕРОКТ-О 
КЕРОКТ-К 
КЕРОКТ-К (LROS_ERR) 


58 

68 
113 
126 
117 
311 
206 
135 

36 
284 
250 
136 

69 
333 
183 
272 
284 
133 
178 

22 
278 
118 
150 
303 

37 
129 
310 

83 

66 
150 
124 
160 
163 
164 

83 
153 
112 
134 
103 
115 
157 

81 

71 
195 
197 
322 
336 


КЕ5-АКО5ОТЕ 
RESERVE (LCU2) 
RESET (RSET) 
RESET-7 
RESET-BS-REG 
RESET-CART-POINTERS 
RESET-CP-2 
RESET-CP-3 
RESET-CP-4 
RESET-CP-5 
RESET-CP-6 
RESET-END 
RESET-EXBNK 
RESET-FLAGS 
RESET-MODE 
RESET-STREAMS 
RESET-SYSCONF (RESSCT) 
REST-DATADD 
REST-RUN (RESTBC) 
RESTK-SUB 
RESTORE 
RESTORE-STREAM (RSTSTR) 
RESTORE_STATUS 
RESULT-OK 
RETURN 
RS-NRMLSE 
RS-STORE 
RS_EXIT 

RS_LOOP 

RSC-1 

RSLT-ZERO 
RSTK-LOOP 

RUN 

$-2-COORD 
S-ALPHNUM 
S-ATTR 
S-BRACKET 
S-CONT-1 
5-СОМТ-2 
5-СОМТ-3 
S-DECIMAL 

S-FN 

S-FN-SBRN 
S-FREE 

S-IK$-STK 
S-INK$-EN 
S-INKEY$ (F_INKY) 


162 

76 
155 
345 
345 

74 
344 
344 
344 
345 
345 
345 
156 
344 
156 
155 
347 
130 
130 
255 
130 

79 
386 
284 
136 
256 
256 
386 
386 
347 
284 
256 
133 
180 
187 
187 
185 
189 
190 
190 
187 
185 
194 
184 
187 
187 
186 
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S-LETTER 
S-LOOP 
S-LOOP-1 
S-LOOPEND 
S-NEGATE 
S-NEXT 
S-NO-TO-S 
S-NOT-AND 
S-NUMERIC 
S-OPERTR 
S-PI (ЕРІ) 
S-PI-END 
S-POINT 
S-PUSH-PO 
S-O-AGAIN 
5-О-СОРҮ 
S-O-PRMS 
S-QUOTE 
S-QUOTE-S 
S-RND (RND) 
S-RND-END 
S-RPORT-C 
S-RPORT-C 
S-RUNTEST 
S-SATTR-S (F. ATTR) 
S-SC-MTCH 
S-SC-ROWS 
S-SCR-NEXT 
S-SCR-STO 
S-SCREEN$ 
S-SCRN$-S (F_SCRN) 
S-SCRN-LP 
S-SD-SKIP 
S-STICK 
S-STK-DEC 
S-STK-LST 
S-STRING 
S-SYNTEST 
S-TIGHTER 
S-U-PLUS 
SA-1-SEC 
SA-8-BITS 
SA-ALL 
SA-BIT-1 
SA-BIT-2 
SA-BLANK 
SA-BYTES (W_TAPE) 
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188 
191 
179 
192 
189 
193 
190 
192 
188 
190 
186 
186 
187 
190 
184 
184 
185 
184 
179 
185 
186 
180 
192 
192 
181 
181 
181 
181 
181 
187 
180 
180 
188 
184 
188 
191 
185 
192 
192 
184 
332 
303 
318 
302 
302 
309 
301 


SA-CODE 
SA-CODE-1 
SA-CODE-2 
SA-CODE-3 
SA-CODE-4 
SA-CONTRL (SAVE) 
SA-DATA 
SA-DATA-1 
SA-DELAY 
SA-FLAG 
SA-LEADER 
SA-LINE 
SA-LINE-1 
SA-LOOP 
SA-LOOP-P 
SA-NAME 
SA-NULL 

SA-OUT 
SA-PARITY 
SA-SCR$ 

SA-SET 

SA-SPACE 
SA-START 
SA-SYNC-1 
SA-SYNC-2 
5А-ТҮРЕ-0 
SA-TYPE-3 
SA-V-NEW 
SA-V-OLD (SLVBADBAS) 
SA-V-TYPE 
SA/LD-END 
SA/LD-RET (W_BORD) 
SAVE-ETC (SLVM) 
SAVE-RESET-FLAG 
SAVE-SET-FLAG 
SAVE_STATUS 
SCAN-ENT 
SCAN-LOOP 
SCANNING (EXPRN) 
SCR-KEY-PRESS 
SCR-WAIT 
SCR-WAIT-LOOP 
SCROLLMSG 
SEC-PLUS 
SECND-LOW 
SEPARATOR 
SEPRMT 


313 
314 
315 
315 
316 
331 
310 
312 
303 
301 
301 
317 
317 
302 
302 
310 
310 
303 
302 
313 
302 
309 
302 
301 
302 
318 
317 
312 
312 
312 
304 
303 
308 
345 
344 
385 
260 
111 
179 

45 

45 

45 

37 
276 
276 
112 
291 


SERIES-06-ETC (FP_FLOAT) 
SET-7 

SET-CP-2 
SET-CP-3 
SET-CP-4 
SET-CP-5 
SET-CP-6 
SET-DE 
SET-END-MARKER 
SET-END-MARKER 
SET-EXP-INIT 
SET-FLAGS 
SET-HL 

SET-MIN 
SET-RST-56 
SET-STK (RESET) 
SET-WORK (X_CALC) 
SET_AT 
SF-ARG-LP 
SF-ARG-VL 
SF-ARGMT1 
SF-ARGMTS 
SF-BRKT-1 
SF-BRKT-2 
SF-CP-DEF 
SF-FLAG-6 
SF-FND-DF 
SF-NOT-FD 
SF-R-BR-2 
SF-RPRT-C 
SF-RUN 
SF-SYN-EN 
SF-VALUE 
SF-VALUES 
SFA-CP-VR 
SFA-END 
SFA-LOOP 
SFA-MATCH 
SFP-LOOP 

SGN 

SHIFT-FP (SHIFT) 
SHIFT-LEN 
SHIFT-ONE 
SIGN-DONE 
SIGN-FLAG 
SIGN-TO-C 

SIN (FP_SIN) 


266 
344 
343 
343 
344 
344 
344 

58 
341 
349 
337 
343 

58 

77 
341 

77 

77 

26 
196 
197 
195 
194 
194 
194 
196 
194 
195 
196 
197 
194 
195 
195 
197 
196 
202 
203 
202 
203 
161 
268 
240 
243 
249 
223 
223 
273 
287 


SKIP-CONS 
SKIP-ERR 
SKIP-ERR 
SKIP-NEXT 


SKIP-OVER (TEST_CH) 


SKIP-WR-BS-REG 
SKIP-ZERO 
SKIPIT 

SKIPIT-L 

SKIPS 
SKPT-FP-CHK 
SKPT-NEXTCHAR 
SKPT-NOT-EOL 
SKPT-QUOTE 
SKPT-RESTHL 
SKPT-RETURN 
SL-DEFINE 
SL-OVER 
SL-RPT-C 
SL-SECOND 
SL-STORE 
SLICING (SLICER) 
SMALL 

SOUND 
SOUND-RASP 
SOUND-RD 

SOR (FP. ROOT) 
SR-CH-1 
SR-CH-2 
SR-CH-LOOP 
SR-CH-OUT 
SRCHSC 

SS EXIT 

SS LOOP 
ST-E-PART 


ST-MEM-0-5 (FP. FROM MEM) 


STACK-A (STK A) 


STACK-BC (STK BC) 
STACK-NUM (STK M) 


START (RSTO) 
START-LROS 
START-NEW 
STICK 
STICK-BITS 
STICK-R-1 
STK-CODE 
STK-CONST 


STK-DATA (FP_LIT) 
STK-DIGIT (ASC2BIN?) 
STK-F-ARG 
STK-FETCH (PGPSTR) 
STK-PNTRS 

STK-ST-$ (PSHSTR) 
STK-ST-O 

STK-STORE (PAEDCB) 
STK-TO-A 

STK-TO-BC (GET_XY) 
STK-VAR (GET_EL) 
STK-ZERO (FP_TO_MEM) 
STK-ZEROS 

STMT-L-1 

STMT-LOOP (LS4) 
STMT-NEXT (ENDTEM) 
STMT-R-1 

STMT-RET (ENDBTT) 
STOP (TSSTOP) 

STR$ (FP. STR) 
STR-&NO (FP. STGAND) 
STR-ALTER (STRITO) 
STR-DATA 

STR-DATA1 

STR-TEST 

STRINGS 

STRS-ADD (FP_CONCAT) 
STRT-MLT 

SUB-LINE 

SUBLIN 

SUBN-ONLY 
SUBTRACT 
SV-ARRAYS 

SV-CH, ADD 
SV-CLOSE 
SV-COMMA 
SV-COUNT 

SV-DIM 

SV-ELEM$ 

SV-LOOP 

SV-MULT 

SV-NUMBER 

SV-PTR 

SV-RPT-C 

SV-SIMPLE$ 

SV-SLICE 

SV-SLICE? 
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262 
224 
202 
218 
277 
210 
209 
210 
166 
166 
203 
265 
263 
110 
110 
115 
112 
112 
120 
279 
274 
145 

81 

81 
276 
275 
277 
247 
115 

94 
252 
241 
204 
205 
205 
205 
205 
207 
207 
205 
206 
206 
204 
206 
203 
207 
207 


SWAP-BYTE 
SYNTAX-Z (INTPTQ) 
SYSCON-CK 
SYSTEM-VERSION 
T-EXPNENT 

T-FIRST 

T-GR-ZERO 
T-NUMERIC 

T-SHIFT 

T-SMALL 

T-STORE 

T-TEST 

TAN (FP_TAN) 
TEMP-PTR1 (NC_HL) 
TEMP-PTR2 (TC_HL) 
TEMPS (DO_ATTS) 
TEMPS-1 

TEMPS-2 

TEST-5-SP 
TEST-CHAR 
TEST-NEG 
TEST-NORM (TESTNORML) 
TEST-ROOM (CHK_SZ) 
TEST-STICK-ARG 
TEST-ZERO (TESTO) 
TKN-IS-DEL 
TKN-IS-OTHER 
TO-POWER (FP_TO_THE) 
TRUNCATE (FP_TRUNC) 
TWO-P-1 
TWO-PARAM 
UNSTACK-Z 
UPD-CART-DATA 
UPDATE-POINTERS 
USE-252 

USE-ZERO (STKFPO) 
USR-$ (FP. USRS) 
USR-BANK 
USR-IN-AROS 
USR-NO (FP. USR) 
USR-RANGE 
USR-STACK 
USR-SYS-1 
USR-SYS-2 
USR-SYS-3 
USR-SYS-L-1 
USR-SYS-L-2 


USR-SYS-LOOP 
USRRET 
V-80-BYTE 
V-CHAR 
V-EACH 
V-END 
V-FOUND-1 
V-FOUND-2 
V-GET-PTR 
V-MATCHES 
V-NEXT 
V-PASS 
V-RPORT-C 
V-RUN 
V-RUN/SYN 
V-SPACES 
V-STR-VAR 
V-SYNTAX 
V-TEST-FN 


VAL, VAL$ (FP_VALS) 


VAL-FET-1 
VAL-FET-2 (LT22) 
VALID 

VAR-A-1 

VAR-A-2 

VAR-A-3 

VAR-A-3 
VR-CONT-1 
VR-CONT-2 
VR-CONT-3 
VR-CONTRL 
WAIT-KEY (RDCH) 
WAIT-KEY1 
WHICH-AROS 
WRITE-BS-REG 
WRITE BS REG 
X-LARGE 

X-NEG 

X38INT 

XB DIFF BANKS 
XB DO MOVE 
XB EXIT 

XB LAST MOVE 
XB MOVE LOOP 
XB OVERLAP 

XB REVERSE 

XB SPACE 


350 
269 
201 
199 
200 
201 
201 
201 
201 
200 
201 
201 
279 
200 
200 
200 
199 
201 
199 
278 
117 
118 
284 
116 
117 
117 
117 
321 
321 
322 
321 

68 

69 
335 
349 
377 
255 
283 
374 
395 
395 
396 
396 
396 
395 
395 
396 


XFER BYTES 
XISO 


XPASSING (PASSIN) 


XRSTO 

XRST38 

XRST8 
XRST8-NORMVID 
YNEG 
ZERO-RSLT 
ZEROS-4/5 
ZPLUS 


394 
290 
359 
299 
300 
299 
299 
287 
249 
240 
286 
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The Timex/Sinclair 2068 was the Timex Computer 
Corporation's third and final home computer sold in the 
United States market. Based on the Sinclair ZX Spectrum, 
Timex added many new features to the TS 2068. 


The TS 2068 included new BASIC commands and a 
dedicated sound chip, cartridge port, support for up to 
16MB of RAM, disk "ed printers, and more. These 
impressive features resulted in a powerful home computer 
that was no longer compatible with the ZX Spectrum. 


This disassembly shows how Timex programmers changed 
the ZX Spectrum source code to support the new features 
and planned expansions. 


This book reveals the inner workings of the TS 2068 
operating system. It is a valuable resource for the serious 
machine language programmer. 


www.timexsinclair.com 


